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Introduction 

I'm not even going to bother comparing C to BASIC or FORTRAN. 

So, left with a few paragraphs to fill with an introduction, allow me to explain why 
this software package is so inexpensive: 

Before a selling price is set for a program in the microcomputer systems environ- 
ment, the seller must decide whether or not large-scale ripoffs are be expected. For a 
$300 BASIC interpreter, yes, one might expect ripoffs, so the price is deemed 
"justifiable" by the vendors to insure an acceptable profit margin or "discourage" 
ripoffs (?). 

Hmmphh. 

As far as BDS C is concerned, the price was set assuming there will not be any 
ripping off, since I feel (as I have been advised numerous times) that the compiler is 
really worth more than its selling price. The last few years, though, have seen a proli- 
feration of prohibitively expensive quality software, and that fact (along with the realiza- 
tion that if / were shopping for a compiler like C, / would possibly copy it from a friend 
if it were priced any higher) has held the price down to a reasonable level. 

There are no licenses or royalty agreements connected with this package, aside 
from the standard agreement that the package be used on one system only (which 
each user implicitly agrees to in the act of unsealing the diskette envelope.) Thus, 
users are free to develop software in BDS C and market the resulting object code, 
along with any functions that may have been taken from the BDS C library, without the 
burden of having to pay BD Software any royalties. The whole idea behind this policy 
is to encourage potential software vendors to use C for their development work, and 
then perhaps to include source listings of their code with their packages and thereby 
promote the use of C. 

Lifeboat Associates are the exclusive distributors of the BDS C package for CP/M 
systems. The disk you've received is legitimate only if it has a Lifeboat label (with the 
shopping bag) affixed to it, and on that label is a desciiption of the package (made by 
a hand stamp) with the serial number filled in. No matter where you bought your disk 
from, it should have originated at Lifeboat; if you have any suspicions that the disk 
you've paid for might be a bootleg, plense contact either myself or Lifeboat about it im- 
mediately so we can put an end to such treachery. 

Remember: If you rip C off or give it away, you will nof be robbing some big cor- 
poration; you'll be screwing an individual programmer who's trying to market ?ome use- 
ful software at a reasonable price and still remain solvent. 
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Objectives and Limitations 

The BDS C Compiler is the implementation of a healthy subset of the C Program- 
ming Language developed at Bell Laboratories. The compiler itself runs on 8080/Z80 
microcomputer systems equipped with the CP/M operating system, and generates 
code to be run either under CP/M or at any arbitrary location in ROM or RAM 
(although there must be a read/write memory area available at run time somewhere in 
the target machine.) 

The main objective of this project was to translate, from the minicomputer to the 
microcomputer environment, a bit of the powerful, structured programming philosophy 
on which the Unix J operating system is based. BDS C provides a friendly environment 
in which to develop CP/M utility applications, with an emphasis on elegant human in- 
terfacing for both compiler use and operation of the end applications. 

Unfortunately, the lexical oddities of C's linguistic structure do not conform as 
readily to the 8080s hardware characteristics as they do to the PDP-11's. Operations 
natural to the 11 (such as indexed indirect addressing -a crucial necessity when deal- 
ing with automatic local storage allocation) expand into rather inefficient code se- 
quences on the 8080. Thus, BDS C is not likely to become quite as universal a systems 
programming language to the 8080 as UNIX C is to the 11; but then, as better mi- 
croprocessors soon replace the 8 bit machines, you can bet there will be C compilers 
available that generate code efficient enough to resign assembly language programming 
to the history books. Consider this package a warm up to that era... 

BDS C's big tradeoff (when compared to assembly language programming) is a 
loss of object code efficiency (both spatial and temporal), at run time, in favor of a 
high degree of structure and comprehensibility at the development stage. In education, 
as well as in other non time critical applications (such as non gargantuan systems pro- 
grammino), I believe the sacrifices are rather minimal in contrast to the benefits. 



New Features of V1.4: A Summary for Users of Earlier Versions 

There has been a hefty amount of revision, expansion and clean up applied tc the 
package since the last release (v1.3x). A good portion of the changes were made in 
response to user feedback, while others (mainly internal code generation optimizations) 
resulted from the author's dissatisfaction with some of his earlier kludgery and short-cut 
algorithms. BDS C version 1 has just about saturated its framework; version 2 is now 
being developed in close conjunction with the MARC Disk Operating System (the work 
of Edwin P. Ziemba) to provide a unified software development system for release 
sometime in 1981. MARC is a "Unix like" operating system that happens to fit quite 
comfortably in non-gargantuan 8080/Z80 based machines. MARC and BDS C should 
get along nicely, and the price for the combined package ought to prove tempting. ..but 



1. See The C Program ming Language by Brian W. Kemighan and Dennis Ritchie 
(Prentice Hall, 1978) for a proper description of the language. This guide deals only 
with details specific to the BDS C implementation; it does not attempt to teach the 
C language. 

2. CP/M is a trademark of Digital Research, Inc. 

3. Unix is a trademark of Bell Laboratories. 

4. PDP is a trademark of Digital Equipment Corporation. 
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this section is supposed describe new features of this software package, so here goes: 

The assembly language sources for the BDS C run-time package (CCC.ASM --> 
C.CCC) and all non-C coded library functions (DEFF2.ASM --> DEFF2 CRL) are now in- 
cluded with the package, so that they may be customized by the user for non CP/M 
environments The new compiler and linker each accept an expanded command line 
option repertoire that allows both the code origin and r/w memory data area to be 
specified explicitly, so generated code can be placed into ROM The run time package 
may be configured for non-CP/M environments by customizing a simple series of EQU 
statements, and new special purpose assembly language library functions may be easily 
generated with the help of MAC (Digital Research's macro assembler) and the nifty new 
macro package (CMAC.LIB) included with BDS C as standard equipment (sorry, MAC 
isn't.) 

On a highar level, the buffered I/O library can now be trivially customized to use 
any number ol sectors for internal disk buffering (older versions were limited to one 
sector of buffering unless a special function package called BIGFIO.C was used; 
BIGFIO C is no longer necessary.) A new general purpose header file, BDSCIO.H, con- 
trols the buffering mechanism and also provides a standard nomenclature for some of 
the constant values most commonly used in C programs. I recommend that all users 
carefully examine BDSCIO.H, become intimate with its contents, and use the symbols 
defined there in place of the ugly constants previously abundant in the sample pro- 
grams. For example, the symbol 'ERROR' is a bit more illuminating than *-1'. 

For Unix enthusiasts, an auxiliary function package (written in C) named "DIO.C" 
has been included to permit I/O redirection and pipes a la Unix. If you do not need 
this capability, then it isn't there to hog up space; if you DO need it, then you s'mply 
add a few special statements to your program and specify DIO.CRL at linkage time, 
then use the standard redirection syntax on the CP/M command line. 

Documentation on all the miscellaneous new library functions has finally found its 
way into the User's Guide, and the Function Summary section now goes into a little 
more detail on some of the confusing aspects of the file I/O mechanism. 

On the technical side, version 1.4 employs a single run time stack configuration in- 
stead of the two-stack horror used in previous releases. All function parameters are 
now passed on the stack, and all local storage allocation also takes place on the 
stack. This leaves all of memory between the end of the externals (which still sit right 
on top of the program code) and the stack (in high memory) free for generalized 
storage allocation; several new library functions {alloc, free, rsvstk, and sbrk) have been 
provided for that purpose. 

Last but not least, the code generator has been taught some optimization tricks. 
The length of generated code has shrunk by 25% (on average) and execution time has 
been cut by about 20% over version 1.32. Part of this cut in code bulk is due to the 
new compiler option -e xxxx. This option to CC1 allows an absolute address for the 
external data area to be specified at compile time, thus enabling the compiler to gen- 
erate absolute loads and stores (using the Ihld and shld 8080 ops) for external vari- 
ables. 



Incompatibilities With Earlier Versions 

Since the run-time package has been totally reorganized since the last release, 
CRL files produced by earlier versions of the compiler will not run when linked in with 
modules produced by the now package. Therefore all programs should be recompiled 
with 1.4, anrl old CRL files should be thrown away. There are also a few source incom- 
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patibilites that require a bit of massaging to be done to old source files. These are: 

0. The statement 

# include "bdscio.h" 

must be inserted into all programs that use buffered file I/O, and should be 
inserted into all other programs so that the symbolic constants defi.ed in 
bdscio.h can be used. 

1. All buffers for file I/O that were formerly declared as 134- byte character ar- 
rays should now be declared as BUFSIZ byte character arrays. For example, 
a declaration such as: 

char ibuf[134]; 

becomes: 

char ibuf[BUFSIZ]; 

2. Comments now nest; i.e., for each and every "begin comment" construct 
("/*") there must be a matching "close comment" ("*/") before the com- 
ment will be considered terminated by the compiler. This means that you can 
no longer comment out a line of code that already contains a comment by 
inserting a "/*" at the start of the line; instead, a good practice would be 
to insert a "/*" above the line to be commented out, and insert a "*/" fol- 
lowing the line. Although this is something that UNIX C expressly disallows, I 
feel it is important to have the ability to comment out large sections of code 
by simply inserting comment delimiters above and below the section; former- 
ly, any comments within such a block of code had to be removed first. 

In version 1.4, the run-time package comes assembled to support up to eight open 
files at any one time, but previous versions had accepted up to sixteen. To allow more 
than eight files, the NFCBS EQU 8 statement in the run time package source 
(CCC. ASM) must be appropriately changed and the file re-assembled. See the "CRL 
Format" section for details on customizing the run-time package. 

System Requirements 

The practical minimum system configuration required by BDS C is a 32K CP/M en- 
vironment. Most sample programs included in the package will compile (without seg- 
mentation) and run on a 48K system. 

BDS C loads the entire source file into memory at once and performs the compila- 
tion in-core, as opposed to passing the source text through a window. This allows a 
compilation to be performed quickly; the main bottleneck for most modestly-sized com- 
pilations is now the disk I/O involved in reading in the source text and writing out the 
CRL file, even though these operations take place as fast as CP/M can handle them. 
The drawback to this scheme is that a source file must fit entirely into memory for the 
compilation. This may sound bad at first, but it isn't really. Consider: a program in C is 
actually a collection of many smaller functions, tied together by a main function. Each 
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function is treated as an independent entity by the compiler, and may be compiled 
separately from the other functions in a program. Thus a single program may be spread 
out over many source files, each containing a number of functions; breaking files up 
this way serves to minimize re-compilation time following minor changes as well as 
keep the individual source files small enough to fit in memory. 



Using the Compiler 

The main BDS C package consists of four executable commands: 

CC1.COM C Compiler - phase 1 

CC2.COM C Compiler - phase 2 

CLINK.COM C Linker 

CLIB.COM C Librarian 

and three data files that are usually required by the linker: 

C.CCC Run-time initializer and subroutine module 

DEFF.CRL Standard ("Default") function library 
DEFF2.CRL More library functions 

CC1.COM and CC2.COM together form the actual compiler. CC1 reads in a given 
source file from disk, crunches on it, leaves an intermediate file in memory, and au- 
tomatically loads in CC2 to finish the compilation and produce a CRL file as output. 
The CRL (mnemonic for C ReLocatable) file contains the generated 8080 machine 
code in a special relocatable format. 

The linker, CLINK, accepts a CRL file containing a main function and proceeds to 
conduct a search through all given CRL files (and DEFF.CRL and DEFF2.CRL automati- 
cally) for needed subordinate functions. When all such functions have been linked, a 
COM file is produced. 

For convenience, the CLIB program is provided for the manipulation of CRL file 
contents. 

IMPORTANT: The command lines for all COM files in the package should be typed in to 
CP/M without leading blanks. This also applies to COM files generated by the compiler 
(where leading blanks on the command line will cause argc and argv to be miscalculat- 
ed.) 

For example, here is the sequence required for compiling and linking a source file 
named foo.c: 

The compiler is invoked with the command: 

A>cc1 foo.c <cr> 

After printing its sign-on message, CC1 will read in the file foo.c from disk and 



1. If desired, the intermediate file produced by CC1 may be written to disk and pro- 
cessed by CC2 separately; then, the intermediate file is given the extension .CCI. 
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crunch for a while. If there are no errors, CC1 will then give a memory usage 
diagnostic and load in CC2. CC2 will do some more crunching and, if no errors 
occur, will write the file FOO.CRL to disk. The next step brings in the linker: 

A>clink foo [other files & options, if any] <cr> 

Unless there are unresolved function references, the file FOO.COM will ho pro- 
duced, ready for execution via 

AMoo [arguments] <cr> 
Following are the detailed command syntax descriptions: 

CC1 - The Parser 

Command format: CC1 name.ext [options] <cr> 

Any name and extension are acceptable, provided the file having the exact given 
name exists. By convention, the extension should be ".c". If the extension is omitted, 
CC1 will not automatically tack on a default extension for you. The extension (if re- 
quired) must be stated explicitly. 

If a disk designation is given for the filename (e.g. "b:foo.c") then the source file 
is assumed to reside on the specified disk, and the output also goes to that same disk. 

Typing a control-C during compilation will abort the compilation and return to 
CP/M. 

Following the source file name may appear a list of option characters, each pre- 
ceded by a dash. Currently supported options are: 

-p Causes the source text to be displayed on the user's con- 

sole, with line numbers automatically generated, after all 
# define and # include substitutions have been complet- 
ed. 

-a x Auto-loads CC2.COM from disk x following successful 

completion of CC1's processing. By default, CC2 is as- 
sumed to reside on the currently logged-in disk. If the 
letter "z" is given for the disk specifier, then an intermedi- 
ate .CCI file is written to disk for later processing by an 
explicit invokation of CC2. 

-d x Causes the CRL output of the compiler to be written to 

disk x if no errors occur during CC1 or CC2. If the -a z 
option is also specified, then this option specifies which 
disk the .CCI file is to be written to. The default destina- 
tion disk is the same disk from which the source file was 
obtained. 

-m xxxx Specifies the starting location (in hex) of the run-time 

package (C.CCC) when using the compiler to generate 
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code for non-standard environments. The run-time pack- 
age is expected to reside at the start of the CP/M TPA by 
default; if an alternative address is given by use of this 
option, be sure to reassemble the run time package and 
machine language library for the given location before 
linking, and give the -I, -e and -t options with appropriate 
address values when using CLINK. 

C.CCC, which always resides at the start of a generated 
COM file, cannot be separated from main and other (if 
any) root segment functions. 

CC2 must be successfully auto-loaded by CC1 for 
this option to have any effect. 

-e xxxx Allows the specification of the exact starting address (in 

hex) for the external data area at run time. Normally, the 
externals begin immediately following the last byte of pro- 
gram code, and all external data are accessed via indirec- 
tion off a special pointer installed by CLINK into the run- 
time package. If this option is given, then the compiler 
can generate code to access external data directly (using 
Ihld, shld, etc. type instructions) instead of using the 
external data pointer. This will shorten and enhance the 
performance of programs having much external data. 
Suggestion: don't use this option while debugging a pro- 
gram; once the program works reasonably, then compile it 
once with -e, putting the externals at the same place that 
they were before (since the code will get shorter the next 
time around.) Observe the "Last code address" value 
from CLINK's statistics printout to find out by how much 
the code size shrunk, and then compile it all again using 
the appropriate lower address with the -e option. Don't 
cut it too close, though, since you'll probably make mods 
to the program and cause the size to fluctuate, possibly 
eating into the explicitly specified external data area. CC2 
must be successfully auto-loaded by CC1 In order 
for this option to have any effect. See also the CLINK 
option -e for more confusing details. 

-o Causes the generated code to be optimized for speed. 

Normally, the code generator replaces some awkward 
code sequences with calls to special subroutines in the 
run-time package; while this reduces the size of the code, 
it also slows it down because of the extra subroutine link- 
age overhead. If the -o option is specified, then many of 
the subroutine calls are disposed of in favor of in-line 
code. This results in faster but longer object programs. 
For the fastest possible code, the -e option should also 
be used. If you want the code to be as short as possible, 
use the -e option but don't use -o. 

CC2 must be successfully auto-loaded by CC1 in 
order for this option to have any effect. 
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r x Reserve xK bytes for the symbol table. If an "Out of sym- 

bol table space" error occurs, this option may be used to 
increase the amount of space allocated for the symbol 
table. Alternatively, if you draw an "Out of memory" error 
then -r may be used to decrease the symbol table size 
and provide more room for source text. A better recourse 
after running out of memory would be to break the source 
file up into smaller chunks, though. The default symbol 
table size is 8K for OOOOh -based CP/M systems and 7K 
for 4200h-based systems. 

c Disables the "comment nesting" feature, causing com- 

ments to be treated in the same way as by UNIX C and 
previous version of BDS C; i.e., when -c is given, then a 
line such as 

/*printf("hello");/* this prints hello V 

is considered a complete comment. If -c is not used, then 
the compiler would expect another */' sequence before 
the comment would be considered terminated. 



A single C source file may not contain more than 63 function definitions; 
remember, though, that a C program may be made up of any number of source files, 
each containing up to 63 functions. 

If any errors are detected by CC1. the compilation process will abort immediately 
instead of loading in the second phase (or writing the .CCI file to disk, depending on 
which options were given.) 

Execution speed: about 20 lines text/second. After the source file is loaded into 
memory, no disk accesses will take place until after the processing is finished. Don't 
assume a crash has occurred until at least (n/20) seconds, where n is the number of 
lines in the source file, have elapsed. THEN worry. 

Examples: 

A>cc1 foobar.c -r10 -ab <cr> 

invokes CC1 on the file foobar.c, setting symbol table size to 10K bytes. CC2.COM is 
auto-loaded from disk B. 

A>cc1 c:belle.c -p -o <cr> 

invokes CC1 on the file belle. c, from disk C. The text is printed on the console (with 
line numbers) following U define and # include processing, CC2.COM is auto-loaded 
from the currently logged disk (unless CC1 finds errors) and the resulting code is op- 
timized for speed. 

See the BDS C handbook (either printed or contained in the disk file C.DOC) for 
more examples. 
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CC2 - The Code Generator 

Command format: CC2 name <cr> 

Normally CC2.COM is loaded up automatically by CC1 and this command need not 
be given. If given explicitly, then the file name. CCI will be loaded into memory and 
crunched upon. 

If no errors occur, an output file named name. CRL will be generated and 
name. CCI (if present) will be deleted. 

CC2 does not take any options. 

As with CC1, a disk designation on the filename causes the specified disk to be 
used for input and output. 

When CC1 auto-loads CC2, several bytes within CC2 are set according to the op- 
tions given on the CC1 command line. If CC2 is invoked explicitly (i.e., not auto-loaded 
by CC1) then the user must see to it that these values are set to the desired values 
before CC2 begins execution. Typically this will not be necessary, but if you're very low 
on disk storage and need to invoke CC2 separately, here is the configuration of data 
values that need to be set (addresses are for O-based CP/M; add 4200h for the 
modified versions): 

Addr default option function 

Non-zero if CC2 has been auto-loaded, else zero 
Zero if -o option (optimize for speed) desired, &!se 01 
Origin address of C.CCC at object run-time 
Explicit external starting address (if -e given to CC1) 
Non-zero if an explicit external data address is specified 

The 16-bit values must be in reverse-byte order (low order byte first, high last). 

CC2 execution speed: about 70 lines/second (based on original source text.) 

At any time during execution, if a control-C typed on the console input then compila- 
tion will abort and control will return to CP/M. 
Example: 

A>cc2 foobar <cr> 



CLINK - The Linker 

Command format: CLINK name [other names and options] <cr> 

The file name.CRL must contain a main function; name.CRL along with any other 
CRL files given will be searched (from left to right, in order of appearance) in an at- 
tempt to resolve all function references. After all given files have been searched, 
DEFF.CRL and DEFF2.CRL (the standard library files) will be searched automatically. 

By default, CLINK assumes all CRL files reside on the currently logged in disk. If a 
disk designation is specified for the main filename, then that disk becomes the default 
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for all CRL files given on the command line. Each additional CRL file may contain a 
disk designation to override the default. 

Should any unresolved references remain after all given CRL files have been 
searched, CLINK will enter an interactive mode, and you will be given the opportunity 
to specify other CRL files, re-scan the old ones, and see what functions are still miss- 
ing. 

Note that if there is much cross-referencing between files (not a good practice) 
then it may be necessary to re-scan some files several times before all references are 
resolved. 

Control-C may be typed during execution to abort the linkage and return to CP/M. 

Intermixed with the list of file names to search may be certain linkage options, pre- 
ceded by dashes. The currently implemented options are: 

-s Print out a statistics summary and load map to the con- 

sole. 

-f file-name (New for v1.44) Force the linking of each and every func- 
tion in the file //7e_name.CRL into the program, regardless 
of whether or not the functions have yet been referenced 
from a higher level. This option is useful for specifying 
.CRL files containing alternate versions of some of the 
standard BDS C library functions, such as "putchar" and 
"getchar". 

If a function in file-name. CRL has already been loaded 

from a previous CRL file, then a message will be printed 

to that effect and the new version of the function will be 
not be used. 



•t xxxx 



Set start of reserved memory to xxxx (hex). The value 
xxxx becomes the operand of an Ixi sp instruction at the 
start of the generated COM file. 1 Under CP/M, the value 
should be large enough to allow all program code, local, 
and external variable storage needed to fit below it in 
memory at run-time. If you are generating code to run in 
ROM, then the highest address of the read/write memory 
area plus one should be given here. 



-e xxxx 



Forces beginning of external data area to be set to the 
value xxxx (hex). Normally (under CP/M) the external data 
area follows immediately after the end of the generated 
code, but this option may be given to override that de- 
fault. This is necessary when chaining is performed (via 
exec or exec/) to make sure that the new command's no- 
tion of where the external data begins is the same as the 



1. Normally, when -t is not used, the generated COM file begins with the sequence: 

Ihld base + 6 ;where "base" is either 0000 or 4200h 
sphl 
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old one's. To find out what value to use, first CLINK all 
the CRL files involved with the -s option, but without the 
-e option, noting the "Data starts at:" address printed out 
by CLINK for each file. Then use the maximum of all 
those addresses as the operand of the -e option for all 
files when you CLINK them again. You'll have to CLINK all 
the files twice, except for the file that had the largest 
Data starting address during the first pass. 

When generating code for ROM, this option should be 
used to place externals at an appropriate location in r/w 
memory. 

If the main CRL file {name. CRL) was compiled with the -e 
option specified to CC1, then CLINK will automatically 
know about the address then specified on the CC1 com- 
mand line; but if any of the other CRL files specified in 
the linkage contain functions compiled by CC1 without 
use of the -e option, or with the value given to -e being 
different from the value used to compile the main func- 
tion, the resulting COM file will not work correctly. You 
may include CRL files that were compiled by CC1 without 
use of the -e option only if you specify -e to CLINK with 
an argument equal to that used to compile the main CRL 
file. 

-o new_name Causes the COM file output to be named new_name.COM. 
If a disk designator precedes the name, then the output is 
written to the specified disk. By default, the output goes 
to the currently logged-in disk. If a single letter disk 
specifier followed by a colon is given instead of a name, 
then the COM file is written to the specified disk without 
affecting the name of the file. 

-w Writes a symbol table file with name name.SYM to disk, 

where name is the same as that of the resulting COM file. 
This symbol file contains the names and absolute ad- 
dresses of all functions defined in the linkage. It may be 
used with SID for debugging purposes, or by the -y op- 
tion when creating overlay segments (see below.) 

-y sname Reads in ("yanks") the symbol file named sname.SYM 

from disk and uses the addresses of all function names 
defined therein for the current linkage. The -w and -y op- 
tions are designed to work together for creating overlays, 
as follows: when linking the root segment (the part of the 
program that loads in at the TPA, first receives control, 
and contains the run-time utility package), the -w option 
should be given to write out a symbol table file containing 
the addresses of all functions present in the root. Then, 
when linking the swappable segments, the -y option 
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should be used to read in the symbol table of the 
"parent" root segment and thereby prevent multiple 
copies of common library functions from being present at 
run-time. This procedure may extend as many levels 
down as required: while linking a swappable segment, the 
-w option can be given along with the -y option, causing 
an augmented symbol file to be written containing every- 
thing defined in the read-in symbol file along with new lo- 
cally defined functions. Then the "swapped-in" segment 
can do some "swappingin" of its own, etc. etc. Note that 
the position of the -y option on the CLINK command line 
is significant; i.e. the symbol file named in the option will 
be searched only after any CRL files specified to the left 
of the -y option have been searched. Thus, for best 
results specify the -y option immediately after the main 
CRL file name. If, upon reading in the symbols from a 
SYM file, a symbol is found having the same name as an 
already defined symbol, the new symbol will be ignored 
and a message will be displayed on the console to that 
effect. 

If any of the symbols in the symbol file have already been 
defined, then a message to that effect is printed on the 
console and the old value of the symbol is retained. 

For more information on using -y for generating overlay 
segments, see the User's Guide appendix on the subject 
of overlays. 

-I xxxx Specifies the load address of the generated code to be 

xxxx (hex). This option is only necessary when generating 
an overlay segment (in conjunction with -v) or code to 
run in a non-standard environment; in the latter case, 
CCC.ASM must have been reconfigured for the appropri- 
ate location and assembled (and loaded) to create a new 
version of C.CCC having origin xxxx. The -e and -t op- 
tions should also be used to specify the appropriate r/w 
memory areas. 

-v Specifies that an overlay segment is being created. The 

run-time package is not included in the generated code, 
since it is assumed that an overlay will be loaded into 
memory while a copy of the run-time package is already 
resident' either at the base of the TPA by default, or at 
the address specified in the -m option to CC1. 

-c x Instructs CLINK to obtain DEFF.CRL, DEFF2.CRL and 

C.CCC from disk x. By default, the currently logged disk is 
assumed to contain these files. 

-d ["args"] To aid debugging, this option causes the COM file pro- 
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General Description 



-r xxxx 



duced by the linkage to be immediately executed (instead 
of being written to disk.) If a list of arguments is specified 
(enclosed in quotes), then the effect is as if the COM file 
were invoked from the CCP with the given command line 
options This option must not be used for segments hav- 
ing load addresses other than at the base of the TPA 
(i.e., -d should only be used for root segments.) 

Reserves xxxx (hex) bytes for the forward-reference table 
(defaults to about 600h). This option may be used to allo- 
cate more table space when a "ref table overflow" error 
occurs. 



Examples: 

A>clink foobar -s t6000 -o lucinda <cr> 

expects the file FOOBAR. CRL to contain a main function, which is then linked with 
any other needed functions from FOOBAR. CRL and DEFF*.CRL. A statistics summary is 
printed out when finished, memory at 0x6000 and above is to be untouched by the 
COM file when running, and the COM file itself is to be named LUCINDA.COM. All disk 
I/O during linkage is performed on the currently logged-in disk. 

A>clink b:ronni lori c:adrienne -s <cr> 

takes the "main" function from RONNI.CRL (on disk B), links in any needed functions 
from RONNI.CRL and LORI.CRL (on disk B), ADRIENNE.CRL (on C) and DEFF.CRL and 
DEFF2.CRL (on the currently logged in disk), and prints out a statistics summary when 
done. Since no -t option is given, CLINK assumes all the TPA (Transient Program Area) 
is available for code and data. The COM file generated is named RONNI.COM by de- 
fault (since no -o option was given) and the file is written to the currently logged in 
disk. 

When several files that share external variables are linked together, then the file 
containing the main function must contain all declarations of external variables used 
in all other files. This is so because the linker uses the number of bytes declared for 
externals in the main source file as the allotment of external space for the resultant 
COM file. Also, because external variables in BDS C are actually more like FORTRAN 
COMMON than UNIX C externals, the ordering of external declarations within each indi- 
vidual source file of a program is very important. See the section entitled "Notes to Ap- 
pendix A..." for more details. 



CLIB - The C Librarian 

Command format: CLIB <cr> 

The CLIB program is provided to facilitate the manipulation of CRL file contents. 
CLIB allows you to transfer functions between CRL files; rename, delete, and inspect 
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individual functions; create CRL files; and check out CRL file statistics. 

Before delving into CUB operation, it would be helpful to understand the structure 
of CRL (C Relocatable) files: 

A CRL file consists of a set of independently compiled C functions, each a binary 
8080 machine code image having its origin set at 0000. Alonq with each function 
comes a list of "relocation parameters" for use by CLINK at linkage time. Also stored 
with each function are the names of all functions called by the given function. Collec- 
tively, the code, relocation list, and needed functions list make up a function module. 

The first four sectors of a CRL file make up the directory for that file. In the 
directory is a list of all function modules appearing in the file, and their locations within 
the file. The total size of a CRL file cannot exceed 64K bytes (because function 
modules are located via two byte addresses), but optimum efficiency is achieved by lim- 
iting a CRL file's size to the size of a single CP/M extent (16K). 

For more detailed information about CRL files, see the section entitled "Adapting 
8080 Machine Code Subroutines to the CRL File Format." 

When CLIB is invoked, it will respond with an initial message and a "function 
buffer size" announcement. The buffer size tells you how much memory is available 
for intermediate storage of functions during transfers. Attempts to transfer or extract 
functions of greater length will fail. 

Following initialization, CLIB will prompt with an asterisk (*) and await a command. 

To "open" a CRL file for diddling, say 

*open file# [d:]//7ename <cr> 

where file # is a single digit identifier (0-9) specifying the "file number" to be associat- 
ed with the file filename as long as that file remains open. Up to ten files, therefore, 
may be open simultaneously. 

Note that a disk designator may now be specified for the filename, making the old 
s command obsolete (previous versions allowed only one disk to be used at a time, 
with the s command selecting the disk to be worked with.) 

To close a file, say 

•close file# <cr> 

The given file number then becomes free to be assigned to a new file via open. A 
backup version of the altered file is created having the name name. BRL. 

It is not necessary to close a file unless either changes have been made to it or 
you need the extra file number. A file opened just to be copied from, for example, 
need not be closed. 

When a CRL file is opened, a copy of the file's directory (first 4 sectors) is loaded 
into RAM. Any alterations made to the file (via the use of the append, transfer, rename, 
and delete commands) cause the in-core directory to be modified accordingly, but the 
file must be closed before the updated directory gets written back onto the disk. Thus, 
if you do something you later wish you hadn't, and you haven't closed the file yet, you 
can abort all the changes made to the file simply by making sure not to close it. Undo- 
ing appends and transfers requires a little bit of extra work; this will be explained later. 

To see a list of all open files, along with some relevant statistics on each, say 

•files <cr> 
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To list the contents of a specific CRL file and see the length of each function 
therein, say 

•list file# <cr> 

There are several ways to move functions around between CRL files. When all files 
concerned have been opened, the most straightforward way to copy a function for set 
of functions) is 

•transfer source_file# destination _file# function-name <cr> 

This copies the specified functions] from the source file to the destination file, not 
deleting the original from the source file. The function name may include the special 
characters * and ? if an ambiguous name is desired. All functions matching the ambi- 
guous name will be transferred (except for .the "main" function, which can never be 
transferred.) 

An alternative approach to shuffling files around is to use the "extract- append" 
method. The extract command has the form 

•extract file # function -name <cr> 

It is used to pull a single function out of the given file and place it in the function 
buffer (in RAM). CLIB is then made aware that the function buffer is occupied. To write 
the function out to a file, say 

•append file# [name] <cr> 

where name is optional and should be given only to change the name under which the 
function is to be saved. 

•append file# <cr> 

is sufficient to write the function out to a file without changing its name. 

Only one file # may be specified at a time with append; to write the function out 
to several CRL files, a separate append must be done for each file. 

To rename a function within a particular CRL file, say 

•rename file# old-name new -name <cr> 

Note that this constitutes a change to the file, and a close must be done on the file to 
make the change permanent. 

To create a new (empty) CRL file, say 

•make filename <cr> 

This creates a file on disk called filename. CRL and initializes the directory to empty. To 
write functions onto it, first use open, and then use transfer or "extract append" as 
described above. CLIB will not allow you to create a CRL file if another CRL file al- 
ready exists by the same name. 

To delete a function (or set of functions) from a file, use 
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'delete file# function-name <cr> 

Again, the function name may be specified ambiguously using the * and ? characters. 
The file must be subsequently closed to finalize the deletion. Note that deleting a func- 
tion does not free up the associated directory space in the associated CRL file until 
that file is closed. Thus if a CRL file directory is full and you wish to replace some of 
the functions in it, you must first delete the unneeded functions, then close *nd re- 
open the file to transfer new functions into it. 

A command syntax summary may be seen by typing the command 

•help <cr> 

All commands may be abbreviated to a single letter. 

Should you decide you really didn't want to make certain changes to a file, but it 
is already after the fact, then the quit command may be used to get out of editing the 
file and abort any changes made. As long as you haven't appended or transferred into 
the file, typing 

♦quit file# <cr> 

is sufficient to abort, and frees up the file# as if a close had been done. 

If you have appended or transferred into a file and you wish to abort, then the 
quit command should still be used, but in addition you should re-open the file directly 
after quitting and then close it immediately. The rationale behind this procedure is as 
follows: when you do an append or a transfer, the function being appended gets writ- 
ten onto the end of the CRL file. Then, when you abort the edit, the old directory is 
left intact, but the appended function is still there, hanging on, even though it doesn't 
appear in the directory. By opening and immediately closing the file, only those func- 
tions appearing in the directory remain with the file, effectively getting rid of those 
"phantom" functions. 

To exit back to CP/M, give the quit command with no arguments, or type control- 
C 

Here is a sample session of CLIB, in which the user wants to create a new CRL 
file named NEW.CRL on disk B: containing all the functions in DEFF.CRL beginning 
'P' 

A>clib 

BD Software C Librarian v1.3 

Function buffer size = xxxxx bytes 

"open deff 

*make b:new 

*open 1 b:new 

* transfer 1 p* 
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•close 1 

*quit 

A> 

CP/M "Submit" Files 

To simplify the process of compiling and linking a C program (after the initial bugs 
are out and you feel reasonably confident that CC1 and CC2 will not find any errors in 
the source file), CP/M "submit" files can be easily created to perform an entire compi- 
lation. The simplest form of submit file, to simply compile, link and execute a C source 
program that is self contained (doesn't require other special CRL files for function link- 
ages) would look like: 

CC1 $1.c 
CLINK $1 -s 
$1 

Thus, if you want to compile a source file named, say, LIFE.C, you need only type 

A>submit c life <cr> 

(assuming the submit file is named C.SUB.) 

Strangenesses 

1) When using PIP to move CRL files and C.CCC around between disks, make sure 
to specify the [o] option so that PIP doesn't abort the operation upon en- 
countering the first 0x1a byte in the file. This may not be necessary on newer 
versions of PIP, but if part of your file disappears after a PIP transfer, at least 
you'll know what to do. 

2) When invoking any COM file in the BDS C package or any COM file generated 
by the compiler, your command line (as typed in to CP/M) must never contain 
any leading blanks or tabs. It seems that the CCP (console command processor) 
does not parse the command line in the proper manner if leading white space 
is introduced. 
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Introduction 

This section is addressed toward assembly/machine language programmers need- 
ing the ability to link in machine code subroutines together with normally compiled C 
functions. It describes the CRL format and how to transform a machine language sub- 
routine into the format appropriate for .CRL files, so that the subroutine can be treated 
just like any other function by the C Linker. Also described are the calling conventions 
for function linkage and some utility routines available to assembly programmers in the 
run-time package. 

Included with version 1.4 of BDS C is a macro library called CMAC.LIB, for use 
with Digital Research's MAC macro assembler. This library greatly simplifies the 
conversion of assembly language subroutines into CRL functions. 

With CMAC.LIB, creating a CRL file from any given assembly source routine is as 
simple as adding a few pseudo-ops, assembling, loading, and changing the COM ex- 
tension to CRL. 

Although it is not absolutely necessary to know how a CRL file is organized in 
order to effectively use the macro package and MAC to produce CRL files, a detailed 
description of the CRL format is in order for general information and for the benefit of 
users lacking MAC. So here goes... 

CRL Directories 

The first four sectors of a CRL file make up the directory. Each function module 
in the file has a corresponding entry in the directory, consisting of the module's name 
(up to eight characters [upper-case only to work correctly with CLIB in versions before 
1.2] with the high-order bit set only, on the last character) and a two-byte value indicat- 
ing the module's byte address within the file. 

Following the last entry must be a null byte (0x80) followed by a word indicating 
the next available address in the file. Padding may be inserted after the end of any 
function module to make the next module's address line up on an even (say, 16 byte) 



1. Locations 0x100 - 0x2ff (using C's notation for hexadecimal values) in memory if 
you are ddt-ing the file. 

2. The function module addresses within a CRL file are all relative to 0x0000, and the 
directory resides from 0x0000 to 0x01 ff. The lowest possible function module ad- 
dress is 0x205 (locations 0x200 - 0x204 are reserved.) When using ddt to examine 
a CRL file, remember that all addresses must be offset by 0x0100 (or 0x4300 for 
"modified" CP/M.) For example, if the directory lists a particular function module as 
beginning at address 0x1 5cf, then you'd look at memory location 0x16cf (or 0x58cf) 
to see it. 
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boundary, but there must never be any padding in the directory itself. 
Example: if a CRL file contains the following modules, 



Name: 


Length: 


foo 


0x137 


yipee 


0x2c5 


blod 


0x94a 



then the directory for that file might appear as follows: 

46 4f cf 05 02 59 49 50 45 c5 50 03 
F O O' nn nn Y I P E E' nn nn 



42 4c 4f c4 20 06 80 70 Of 
B L O D' nn nn null-entry 

In some early version of the compiler, the word main was recognized as a key- 
word, and converted into a one-byte code having the value 0x9D. Thus, instead of see- 
ing the sequence "MAIN" (with the N's high order bit set) in old .CRL files, you'd just 
see the 0x9d byte and an address. The new linker and librarian can both still handle 
that strange case, but the new compiler doesn't put out 0x9D's for "MAIN" anymore. 



External Data Area Origin and Size Specifications 

The first five bytes of the fifth sector of a CRL file (locations 0x200-0x204 relative 
to the start of the file) contain information that CLINK uses to determine the origin (if 
specified explicitly to CC1 via the -e option) and size of the external data area for the 
executing program at run-time. This information is valid ONLY if the CRL file containing 
it is treated as the "main" CRL file on the CLINK command line; otherwise, the infor- 
mation is not used. 

The first byte of the fifth sector has the value OxBD if the -e option was used dur- 
ing compilation to explicitly set the external data area; else, the value should be zero. 
The second and third bytes contain the address given as the operand to the -e option, 
if used. 

The fourth and fifth bytes of the the fifth sector contain the size of the external 
data area declared within that file (low byte first, high byte second.) CLINK always ob- 
tains the size of the external data area from these special locations within the main 
CRL file. In CRL files which do not contain a main function, these bytes are unused. 



Function Modules 

Each function module within a CRL file is an independent entity, containing (in ad- 
dition to the binary machine-code image of the function itself) a set of relocation 



1. Note that the last character of each name has bit 7 set high. 
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parameters for the function and a list of names of any other functions that it may call. 

A function module is address-independent, meaning that it can be physically 
moved around to any location within a CRL file (as it often must be when CLIB is used 
to shuffle modules around.) 

The format of a function module is: 

list of needed functions 

length of body 

body 

relocation parameters 



List of Needed Functions 

If the function you are building calls other CRL functions, then a list of those 
function's names must be the first item in the module. The format is simply a contigu- 
ous list of upper-case-only names, with bit 7 high on the last character of each name. 
A zero byte terminates the list. A null list is just a single zero byte. 

For example, suppose a function foobar uses the functions putchar, getchar, and 
setmem. Foobar's list of needed functions would appear as: 

47 45 54 43 48 41 d2 50 55 54 43 48 41 d2 53 45 54 4d 45 cd 00 
getchar' put char' setmem' (end) 



Length of Body 

Next comes a 2-byte value specifying the exact length (in bytes) of the body (to 
be defined next.) 



Body 

The body portion of a function module contains the actual 8080 code for the func- 
tion, with origin always at 0000. 

If the lisl of needed functions was null, then the code starts on the first byte of 
the body. If the list of needed functions specified n names, then a dummy jump vector 
table (consisting of n jmp instructions) must be provided at the start of the body, pre- 
ceded by a jump around the vector table. 

For example, the beginning of the body for the hypothetical function foobar 
described above would be: 

jmp OOOch 
jmp 0000 
jmp 0000 
jmp 0000 
<rest of code> 

c3 0c 00 c3 00 00 c3 00 00 c3 00 00 <rest of function codeX 
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Relocation Parameters 

Directly following the body come the relocation parameters, a collection of ad- 
dresses (relative to the start of the body) pointing to the operand fields of all instruc- 
tions within the body which reference a local address. CLINK takes every word being 
pointed to by an entry in this list, and adds a constant to it which equals the value of 
the address where the first byte of the function ends up residing in the resultant COM 
file. 

The first word in the relocation list is a count of how many relocation parameters 
are given in the list. Thus, if there are n relocation parameters, then the length of the 
relocation list (including the length byte) would be 2n -»- 2 bytes. 

For example, a function which contains four local jump instructions (which begin, 
respectively, at locations 0x22, 0x34, 0x4f and 0x61) would have a relocation list look- 
ing like 

04 00 23 00 35 00 50 00 62 00. 1 



Calling Conventions and Register Allocation 

All argument passing on function invokation, as well as all local (automatic) 
storage allocation, now take place on a single stack at run time. The stack pointer is 
kept in the SP register, and is initialized to the very top of the CP/M TPA in the stan- 
dard configuration (or to the value specified as argument to -t at linkage time.) Exter- 
nal storage usually sits directly on top of the program code, leaving all of memory 
between the end of the external data and the high -memory stack free for storage allo- 
cation. 

When a C-generated function receives control, it will usually: push BC, allocate 
space for local data on the stack (decrement SP by the amount of local storage need- 
ed), and copv the new SP value into the BC register for use as a constant base-of- 
frame pointer. Note that the old value of BC must always be preserved for the calling 
routine. 

Let's assume the called function requires nlocl bytes of local stack frame space. 
After pushing the old BC, decrementing SP by nlocl and copying SP to BC (in that ord- 
er), the address of any automatic variable having local offset lottset may be easily com- 
puted by the formula 

(BC) + loffset 

If the function takes formal parameters, then the address of the nth formal parameter 
may be obtained by 

(BC) +n/oc/ + 2 + 2n 



1. Note that the addresses of the instructions must be incremented by one to point to 
the actual address operands needing relocation. 

2. The reason for copying the SP into BC instead of just addressing everything relative 
to SP is that the SP fluctuates madly as things are pushed and popped, making ad- 
dress calculation hopelessly confusing for poor lazy compiler hackers like me. 
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where n is 1 for the first value specified in the calling parameter list, 2 for the second, 
etc. This last formula is obtained by noting that parameters are always pushed on the 
stack in reverse order by the calling routine, and that pushing the arguments is the last 
thing done by the caller before the actual call. After the called function pushes the BC 
register, there will be four bytes of stuff on the stack between the current SP and the 
first formal parameter (two 16-bit values: the saved BC. and the return address to the 
calling routine.) Note that this scheme presupposes that each formal parameter take* 
exactly 2 bytes of storage. When 4-byte variables come into play, the general formula 
falls apart and the location of each parameter will depend on the types of the other 
parameters. But let's leave something for version 2... 

Upon completing its chore (but before returning), the called function de-allocates 
its local storage by incrementing the SP by nlocl, restores the BC register pair by pop- 
ping the saved BC off the stack, and returns to the caller. 

The caller will then have the responsibility of restoring the SP to the state it was in 
before the formal parameter values were pushed; the called function can't do this be- 
cause there is no way for it to determine how many parameters the caller had pushed. 



Formally, the responsibilities of a calling function are: 

1. Push formal parameters in reverse order (last arg first, first arg last) 

2. Call the subordinate function, making sure not to have any important values 
in either the HL or DE registers (since the subordinate function is allowed to 
bash DE and may return a value in HL.) The BC register can be considered 
"safe" from alteration by the subordinate function; by convention, the func- 
tion that is called must always preserve the BC register value that was 
passed to it. All functions produced by the compiler do this. 

3. Upon return from the function: restore SP to the value it had before the for- 
mal parameters were pushed, taking care to preserve HL register pair (con- 
taining the returned value from the subordinate function.) The simplest way 
to restore the stack pointer is just to do a "pop d" for each argument that 
was pushed. 

The protocol required of the called, subordinate function is: 

1. Push the BC register if there is any chance it may be altered before return- 
ing to the caller. 

2. If there are any local storage requirements, allocate the appropriate space on 
the stack by decrementing SP by the number of bytes needed. 

3. If desired, copy the new value of SP into the BC register pair to use as a 
base-of-frame pointer. Don't do this if BC wasn't saved in step 11 

4. Perform the required computing. 

5. De-allocate local storage by incrementing SP by the local frame size. 
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6. Pop old BC from the stack (if saved in step 1.) 

7. Return to caller with the returned value in the HL register. 

How Much Space Does the Stack Take Up? 

The new single stack scheme has all local (automatic) data storage, formal param- 
eters, return addresses and intermediate expression values living on the one stack up 
in high memory. Usually the stack pointer is initialized to the very top of memory (the 
BDOS area) and grows down from there (the -t option to CLINK may be used to over- 
ride that default) The maximum amount of space the stack can ever consume is 
roughly equal to the amount of local data storage active during the worst case of func- 
tion nesting, plus a few hundred bytes or so. If we call the amount of local storage in 
the worst case n, then the amount of free memory available to the user may be figured 
by the formula 

topofmemQ - endextO - (n + fudge) 

where a fudge value of around 500 should be pretty safe. TopofmemQ and endextO 
are new library functions which return, respectively, a pointer to the highest memory lo- 
cation used by the running program (the top of the stack) and a pointer to the byte 
following the end of the external data area. EndextO is thus the first byte of memory 
available to the user. 

Helpful Run-Time Subroutines Available in C.CCC (See CCC.ASM) 

There are several useful subroutines in the run time package available for use by 
assembly language functions. The routines fall into three general categories: the local- 
and external-fetches, the formal -parameter fetches, and the arithmetic and logical rou- 
tines. 

The first group of six subroutines may be used for fetching either an 8- or 16-bit 
object, stored at some given offset from either the BC register or the beginning of the 
external data area, where the offset is specified as either an 8- or 16-bit value. For ex- 
ample: the intuitive procedure for fetching the 16-bit value of the external variable 
stored at an offset of eoffset bytes from the base of the external data area (the pointer 
to which is stored at location extrns) would be 

Ihld extrns ;get base of external area into HL 

Ixi d,eottset ;get offset into HL 

dad d ;add to base-of-externals pointer 

mov a,m ;perform indirection to get 

inx h ;value into HL 

mov h,m 

mov l,a 

Using the special call for retrieving an external variable, the same result may be ac- 
complished with 

call sdei 
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db eoffset ;if eolfset < 256 

The second sequence takes up much less memory; 4 bytes versus 11, to be exact. If 
the value 6i eoffset were greater than 255, then the Idei routine would be used instead, 
with eoffset taking a dw instead of a db to represent. See the CCC.ASM file for com- 
plete listings and documentation on the entire repertoire of these value-fetching sub- 
routines. 

The second class of subroutines are used primarily for fetching the value of a 
function argument off the stack into HL and A. For example: say your assembly func- 
tion has just been called; a call to the subroutine maltoh would fetch the first argu- 
ment into HL and A. maltoh (mnemonic for "Move Argument 1 TO H") always fetches 
the 16-bit value present at location SP + 2 (as your function sees the SP.) A call to the 
ma2toh ("Move Argument 2 to H") routine would retrieve the second 16-bit argument 
off the stack in HL and A. If you push the BC register first, then you'd have to call 
ma2toh in order to fetch the first argument, ma3toh to fetch the second, and so on for 
ma4toh and the rest. 

Another way to deal with function arguments is to call the routine called arghak as 
the very first thing you do in your function (even before pushing BC.) Arghak copies 
the first seven function arguments off the stack to a contiguous 14-byte area in the 
r/w memory area (normally within C.CCC itself), making those values accessible via 
simple Ihld operations for the duration of the function's operation. ..assuming your func- 
tion doesn't call others which copy their arguments down there. After arghak has been 
called, the first argument will be stored at absolute location argl, the second at arg?., 
etc. 

The final category of subroutines is the arithmetic and logical group, all of which 
take arguments passed in HL and DE and return a result in HL. 

Again, CCC.ASM is the source for the run-time package, in which all the above 
mentioned routines are documented. The header file BDS. LIB contains definitions of all 
entry points to the routines within C.CCC (the assembled CCC.ASM) as provided in the 
distribution version of the package. All your assembly language source files should 
contain the MAC directive 

maclib bds 

so that the necessary subroutines may be referred to directly by name in your pro- 
grams. If you have need to modify CCC.ASM in order to customize the run-time pack- 
age, be sure to also modify BDS.LIB to reflect the new addresses. 



Generating Code to Run At Arbitrary Locations and/or In ROM 

Normally, BDS C produces a CP/M transient command file ready to run in 
read/write memory located at the base of the TPA (100h or 4300h), in response to a 
direct command to the Console Command Processor. Under such normal cir- 
cumstances, the run-time package (C.CCC) and its private read/write memory area oc- 
cupy the first 1500-or-so bytes of the command file, and the compiled code (commenc- 
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ing with the "main" function) follow immediately thereafter. 

If all you ever want to do is generate CP/M transient commands, then you're all 
set. But in order to generate code that can run at a different location or be placed into 
ROM, it is necessary to: a) customize the run-time package, b) reassemble the 
machine-coded portions of the function library, and c) recompile the C-coded portions 
of the library. Here is the general procedure for customizing the package toward such 
ends: 

1. Alter and re-assemble the run-time package (CCC.ASM) to reflect the desired 
configuration. If the target code will not be operating under CP/M, setting 
the appropriate EOU to zero will eliminate much CP/M- related support code 
and reduce the size of both the run-time package and the required r/w 
memory area; non-CP/M operation will also cause the CP/M-dependent en- 
try points within the run-time package to remain undefined, so you won't ac- 
cidentally generate code to use them while developing assembly functions. 
Also be sure to set the appropriate EQUs to define the code origin of the 
package and the r/w memory location for the package's private data area. 

After the binary image of CCC.ASM is produced (be it named CCC.COM or 
whatever), rename it to be: C.CCC. 

Note: After assembling CCC.ASM, you cannot simply "load" the CCC.HEX file 

to produce a binary image unless the origin is exactly at the base of the 

TPA. If your origin is elsewhere, use DDT or SID to read the file into memory ( 

and move it down to the base of the TPA, then re-boot CP/M and use the 

"save" command to write the new C.CCC back to disk in binary form. 

2. Edit the file BDS.LIB so that all addresses match the values obtained from 
assembly of your new CCC.ASM. A good way to check this step is to rename 
BDS.LIB to be BDS. ASM, assemble it, and compare the values at the left 
margin from BDS.PRN to those in CCC.PRN. 

3. Using MAC, assemble the machine language library routine file (DEFF2.ASM), 
load it, and rename it DEFF2.-CRL. If any functions in DEFF2A.ASM are need- 
ed, then assemble that file also, rename it DEFF2A.CRL, and use CLIB to 
transfer everything in there over to DEFF2.CRL. If you are configuring the 
system for a non-CP/M environment, you'll have to purge all the CP/M- 
related functions from DEFF2.ASM and DEFF2A.ASM before assembly. See 
the comments in CMAC.LIB for instructions on the use of the special 
pseudo-ops for creating CRL files with MAC. 

4. When using CC1 to compile code for a non standard (base-of-TPA) load ad- 
dress, specify the -m option to inform the compiler of the new run-time pack- 
age origin address. Make sure to re-compile STDLIB1.C and STDLIB2.C us- 
ing -m, and use CLIB to create a new DEFF.CRL composed of everything 
from STDLIB1.CRL and STDLIB2.CRL 

5. Use the -I, -t and -e options to tell CLINK the load address, top of r/w 
memory and base of external data area, respectively, of the target program. 

6. Burn the PROMsl 
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Debugging Hint 

Use of the -o option to CC1 will make interactive debugging of the generated 
code (using, say, SID) easier, since this will avoid the in-line data bytes that usually fol- 
low value fetching calls to the run time package. 
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The BDS C Standard Library on CP/M 
A Function Summary 



Included in the BDS C package are the files DEFF.CRL and DEFF2.CRL, making 
up the standard library. These files contain a collection of useful C functions, in CRL 
(C Relocatable) format, available for use by all C programs. CLINK automatically 
searches the library after all other CRL files given on the command line have been 
searched once; thus, any functions you explicitly define in a source file that happen 
to have the same name as library functions will take precedence over the library ver- 
sions, as long as CLINK finds your version of the function before getting around to 
scanning the library. 

CLINK begins its task by loading in the main function from the CRL file specified 
as the first argument on the command line. If main calls any other functions (it usually 
does), then each such function is searched for in the first CRL file, loaded if found, 
and recursively examined for any functions it may need. If there are still more func- 
tions needed after loading everything that was needed from the first CRL file, then the 
other CRL files on the command line (and finally DEFF.CRL and DEFF2.CRL) are 
scanned. Because CLINK never yanks up a function unless some previously loaded 
function has made a reference to it (or the -f option is used), you may have to go 
back and re-scan some files after the first pass has been completed. This only hap- 
pens when a function defined in one of the first CRL files isn't used at all until a func- 
tion in a later file calls it. By avoiding this type of backward-reference, the need for re- 
scanning may be eliminated. 

In the following summary of all the major functions in DEFF.CRL and DEFF2.CRL, 
each function is described both in words and in a C-type notation intended to illustrate 
how a definition of that function would appear in a C program. Such notation pro- 
vides, at a glance, information such as whether or not the function returns a value 
(and if so, of what type) and the types of any parameters that the function may take. 
Here are some rules of thumb: if a function is listed without a type, then it doesn't re- 
turn a value (for example, exit and poke return no values.) Any formal parameters lack- 
ing an explicit declaration are implicitly of type int, although in many cases only the 
low order 8 bits of the value are really used and a value of type char would work just 
as well. 

The only time it is necessary to actually declare a library function before it is used 
in a C program is when the function returns a value having a type other than int, and 
that value is used immediately in an expression where the type has some significance. 
A bit of experience will help to clarify when it is proper or unnecessary to declare cer- 



1. For version 1.4, DEFF2.CRL contains all the assembly language functions from 
DEFF2.ASM and DEFF2A.ASM (assembled using MAC, CMAC.LIR and BDS.LIB), 
while DEFF.CRL contains all the C-coded functions from STDLIB1.C and STDLIB2.C. 
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tain functions; many of these decisions are a matter of style and/or portability. 

Here is a summary of all major functions available in DEFF.CRL and DEFF2.CRL: 



I. GENERAL PURPOSE FUNCTIONS 



1. char csw() 



2. exit() 



4. char bios(n,c) 



Returns the byte value (0-255) of the console 
switch register (port OxFF on some mainframes). 



Closes any open files and exits from an executing 
program, re-booting CP/M. Does not automatically 
call {flush on files opened for buffered output. 



3. int bdos(c.de) 

1 ; Calls location RAM + 5 (where RAM = 0x0000 for 

most systems), first setting CPU register C to the 
value c, and register pair DE to the value de. 
Return value is the 16-bit value returned by the 
BDOS in A and B (low order 8 bits in A, high-order 
8 bits in B.) For CP/M 2.x, this is the same as the 
value returned in HL. 



Calls the nth entry in the BIOS jump vector table, 
where n is for the first entry (boot), 1 for the 
second (wboot), 2 for the third(const), etc. Note 
that the cold -boot function (where n is 0) should 
never actually be used, since the CCP will be 
bashed and probably crash the system upon entry. 
Return value is the value returned in A by the 
BIOS call. 

There are some BIOS calls that require a parame- 
ter to be passed in DE, and that return their result 
in HL. Note that a special version of bios that sup- 
ports this format, call it biosh, may easily be writ- 
ten in terms of the call function by noting that 
memory locations 1 and 2 (or 4201 h and 42Q2h) 
contain the address of the second entry in the 
BIOS jump vector table. 
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5. char peek(n) 



Returns contents of memory location n. Note that 
in applications where many consecutive locations 
need to be examined, it is more efficient to use in- 
direction on a character pointer than it is to use 
peek. This function is provided for the occasional 
instance when it would be cumbersome to declare 
a pointer, assign an address to it, and use indirec- 
tion just to access, say, a single memory location. 



6. poke(n.b) 



Deposits the low-order eight bits of b into memory 
location n. This can also be more efficiently ac- 
complished using pointers, as in 

*n = b; 
(where n is a pointer to characters.) 



7. inp(n) 



Returns the eight-bit value present at input port n. 



8. outp(n.b) 



Outputs the eight-bit value b to output port n. 



9. pause() 



Sits in a loop until CP/M console input interroga- 
tion indicates that a character has been typed on 
the system console. The character itself is not in- 
put; before pause can be used again, a getcharO 
call must be done to clear the status. 
There is no return value. 



10. sleep(n) 



Sleeps (idles) for n/10 seconds (on an 0080). The 
only way to abort out of this before it wakes up is 
to type control C, which reboots CP/M. 
No return value. 
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11. int call(addr,a,h,b,d) 
A- 



ik 



Calls a machine code subroutine at location addr, 
setting CPU registers as follows: 
HL <-- h' t A <-- a; BC < b; DE <-- d. 
Return value is whatever the subroutine returns in 
HL 

The subroutine must, of course, maintain stack dis- 
cipline. 



12. char calla(addr,a,h,b,d) 



13. int abs(n) 



Just like call, except the return value is the value 
returned by the subroutine in A (instead of HL.) 



Returns absolute value of n. 



14. int max(n1,n2) 



Returns the greater of two integer values. 



15. int min(n1,n2) 



Returns the lesser of two integer values. 



16. srand(n) 



Initializes pseudo- random number generator. 

If n is zero, then srand asks the user to type a 

carriage return and starts to count, internally. 

When a key is finally hit by the user, the current 

value of the count is used to initialize the random 

seed. 

If n is non-zero, then n itself is used as the seed. 



17. srandl (string) 
char *string; 



Like srand(0), except that the given string is print- 
ed as a prompt instead of the canned "Hit return 
after a few seconds:" message. Unlike srand, 
though, the character typed is not gobbled up; 
you must do a getchar to clear it. 
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18. int rand() 



Returns next value (ranging: < randQ < 32768) in 
a pseudo-random number sequence initialized by 
srand or srandl. 

To get a value between and n-1 inclusive, say: 
rand() % n 



19. nrand(-1,s1,s2,s3) 

nrand(0, prompt_string) 
int nrand(1) 



A new, "better quality" random number generator, 
written by Prof. Paul Gans to emulate the CDC 
6600 random number generator in use at the 
Courant Institute of Mathematical Sciences. The in- 
itialization mechanism was later added for semi- 
compatibility with the srand and srandl conven- 
tions. 

The first form sets the internal 48-bit seed equal 
to the 48 bits of data specified by s1, s2 and s3 
(ints or unsigneds.) 

The second form acts just like the srandl function: 
the string pointed to by prompt-string is printed 
on the console, and then the machine waits for 
the user to type a character while constantly incre- 
menting an internal 16-bit counter. As soon as a 
character is typed, the value of the counter is 
plastered throughout the 48 bit seed. Note that the 
console input is not cleared; a subsequent 
getcharO call is required to actually sample the 
character typed. 

The final form simply returns the next value in the 
random sequence, with the range being 

< nrandO) < 32768. 
Note that the internal seed maintained by nrand is 
separate from the seed used by srand, srandl and 
rand (the last three routines use the first 32 bits of 
the area labeled rseed within the run-time package 
data area, while nrand maintains its own distinct 
internal seed.) 



20. setmem(addr,count,byte) 



Sets count contiguous bytes of memory beginning 
at addr to the value byte. This is efficient for quick 
initialization of arrays and buffer areas. 
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21 . movmem(source,dest,count) 
char *source, *dest; 



Moves a block of memory count bytes in length 
from source to dest. This new version will handle 
any configuration of source and destination areas 
correctly, knowing automatically whether to per- 
form the block move head-to-head or tail-to-tail. If 
run on a Z80 processor, the Z80 block move in- 
structions are used. If run on an 8080 or 8085, the 
normal 8080 ops are used. 



22. qsort(base,nel,width,compar) 
char *base; 
int (*compar)(); 



Does a "shell sort" on the data starting at base, 
consisting of nel elements each width bytes in 
length, compar must be a pointer to a function of 
two pointer arguments (e.g. x,y) which returns 

1 if *x > *y 
-1 if *x < *y 

if *x = = *y. 

Elements are sorted in ascending order. See the 
OTHELLO. C program for a good example of using 
qsort. 



23. int exec(prog) 
char *prog; 



Chains to (loads and executes) the program 
prog.COM. 

Prog must be a null-terminated string pointer 
specifying the file to be chained. A string constant 
(such as "foo") is perfectly reasonable, since it 
evaluates to a pointer. 

If the command to be executed was generated by 
the C compiler, then it should have been linked 
with the CLINK option -e specified if external vari- 
ables need to be shared between the execing and 
execed files. See the CLINK documentation for 
details on the proper usage of this option. 
There may be no transfer of open file ownership 
through an exec call. The only possible shared 
resource under this scheme is external data... to al- 
low this, the external data starting address must 
be made the same for all files involved, using the 
CLINK option -e. 
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Returns -1 on error.. .but then, if it returns at all 
there must have been an error. 



24. int execl(prog,arg1,arg2,...,0) 
char *prog, *arg1, *arg2, ... 



Allows chaining from one C COM file to another 
with parameter passing through the argc & argv 
mechanism. Prog must be a null-terminated string 
pointing to the name of the COM file to be 
chained (the .COM need not be present in the 
name), and each argument must also be a null- 
terminated string. The last argument must be zero. 
Execl works by creating a command line out of the 
given parameters, and proceeding just as if the 
user had typed that command line in to the CCP 
of CP/M. For example, the call 

execlCfooVbar'V'zor.O); 
would have the same effect as if the command 

AMoo bar zot <cr> 
were given to CP/M from the console. Unfor- 
tunately, the built-in CP/M commands (such as 
"dir", "era", etc.) cannot be invoked with execl. 
The total length of the command line constructed 
from the given argument strings must not exceed 
80 characters. 

-1 returned on error (again, though, if it returns at 
all then there must have been an error.) 



25. execv(filename.argvector) 
char 'filename; 
char *argvector[]; 



Similar to execl, except that the argument texts 
must be placed into an array instead of specified 
explicitly in the calling sequence. The argvector 
parameter must be a pointer to an array of string 
pointers, where each string pointer points to the 
next argument and the last one is NULL. This 
mechanism allows chaining with a variable number 
of arguments to be performed. 
If the program filename.COM is not found, then 
the message "Broken Pipe" will be printed on the 
console and control will return to CP/M. 
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26. int swapin(filename,addr) 
char filename; 



27. char *codend() 



28. char *externs() 



29. char *endext() 



Loads in the file whose name is the null-terminated 
string pointed to by filename into location addr in 
memory. No check is made to see if the file is too 
long for memory; be careful where you load it! 
This function would normally be used to load in an 
overlay segment for later execution via an indirec- 
tion on a pointer-to-function variable; it may be 
used to load in any type of file, though. 
Returns -1 if there is an error in reading in the file. 
Control is not transferred to the loaded file. 



Returns a pointer to the first byte following the 
end of root segment program code. This will nor- 
mally be the beginning of the external data area 
(see externsO below.) 



Returns a pointer to the start of the external data 
area. Unless the -e option was used with CC1 
and/or with CLINK, this value will be the same as 
codendO. 



Returns a pointer to the first byte following the 
end of the external data area. 



30. char *topofmem() 



Returns a pointer to the last byte of the TPA (this 
is normally the top of the stack.) The value re- 
turned by topofmemO is not affected by use of the 
-t option at linkage time. 
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31. char *alloc(n) 



Returns a pointer to a free block of memory n 
bytes in length, or if n bytes of memory are not 
available. This is roughly the storage allocation 
function from chapter 8 of Kernighan & Ritchie, 
slightly simplified for the case where type- 
allignment restrictions are nonexistent. See the 
book for details. 
Note that the 

# define ALLOCLON 1 

statement in the header file BDSCIO.H must be 
un-commented (enabled) and STDLIB1.C re- 
compiled to allow use of alloc and free. See the 
comments in BDSCIO.H for more details on this 
process. 

BDSCIO.H must be # included in all files of a pro- 
gram that uses the alloc-free pair, since there is 
some crucial external data declared therein. Your 
best bet would be to put an 

# include "bdscio.h" 

statement at the start of the global (.H) header file 
that contains all your external declarations. 



32. free(allocptr) 
char *allocptr; 



Frees up a block of storage allocated by the alloc 
function, where allocptr is a value obtained by a 
previous call to alloc. Free need not be called in 
the reverse order of previous alloc calls, since the 
alloc-free pair maintain a linked list of data struc- 
tures and can tolerate any order of allocation/de- 
allocation. 

Calling free with an argument not previously ob- 
tained by a call to alloc can do miserable things to 
your system. 
See alloc () above. 



33. char *sbrk(n) 



This is the low-level storage allocation function, 
used by alloc to obtain raw memory storage. It re- 
turns a pointer to n bytes of memory, or -1 if n 
bytes aren't available. The first call to sbrk returns 
a pointer to the location in memory immediately 
following the end of the external data area; each 
subsequent call returns a block contiguous with 
the last, until sbrk detects that the locations being 
allocated are getting dangerously close to the 
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34. rsvstk(n) 



current stack pointer value. By default, 
"dangerously close" is defined as 1000 bytes. To 
alter this default, see the next function. If you 
plan to use allocO and freeO in a program, but 
would also like some memory immune from alloca- 
tion to be available for scratch space, use sbrk() 
to request the desired memory instead of allocO. 
SbrkO calls may be made at any time (independent 
of any allocO and freeO calls that may have been 
made.) 



This should be used before any calls to sbrk or al- 
loc, so that the storage allocation functions reject 
any allocation calls which would leave less than n 
bytes between the end of the allocated area and 
the current value of the stack pointer (remember 
that the stack grows down from high memory.) 
If rsvstkO is never used, then storage allocation is 
automatically prevented from approaching closer 
than 1000 bytes to the stack (just as if an 
rsvstk(WOO) call had been made.) 



II. CHARACTER INPUT/OUTPUT 



35. int getchar() 



Returns next character from standard input stream 
(CP/M console input.) 
Reboots CP/M on control-C. 
Carriage return echos CR-LF to the console output 
and returns the newline ('\n') character. 
A value of -1 is returned for control-Z; note that 
the return value from getchar must be treated as 
an integer (as opposed to a character) if -1 is to 
be recognized. If you declare getchar to be a 
character or assign its return value to a character 
variable, then the value 255 should be checked for 
instead (to detect the EOF character, control-Z.) 
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36. char ungetch(c) 



37. int kbhit() 



38. putchar(c) 



Causes the character c to be returned by the next 
call to getchar. Only one character may be 
"ungotten" between consecutive getchar calls; 
normally, zero is returned. If there was already a 
character pushed back since the last getcharO 
call, then the value of that character is returned. 



Returns true (non-zero) if input is present at the 
standard input (keyboard character hit); else re- 
turns false (zero.) In no case is the input actually 
sampled; to do so requires a subsequent getcharO 
call. 

Note that kbhit will also return true if the ungetch 
function was used to push back a character to the 
console since the last getcharO call. 



Writes the character c to the standard output 

(CP/M console output.) 

The newline ('\n') character is transformed into a 

CR-LF combination. 

If a control-C is detected on console input during 

a putchar call, program execution will halt and 

CP/M will be re-booted. If any other character is 

typed during a putchar call, then that character 

will be completely ignored. 

If you don't want the console input interrogated 

during console output, use the putch function, 

described next: 



39. putch(c) 



Like putchar, except that the console input is NOT 
interrogated for control-C (or anything else) during 
output; any characters detected at the console in- 
put will be thrown away. 
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41. char *gets(str) 
char *str; 



Writes out the null-terminated string str to the 
standard output. No automatic newline is append- 
ed. 



Collects a line of input from the standard input 

into the buffer str. 

Returns a pointer to the beginning of str (the 

value gets was called with.) 

The BDOS call to buffer up a line of input is used; 

hence, the length of the provided buffer must be 

at least 3 bytes longer than the longest string you 

ever expect entered. Caution dictates making the 

buffer large, since an overflow here would most 

probably destroy neighboring data. 



( 



42. printf(format,arg1,arg2,...) 
char 'format; 



Formatted print function. Output goes to the stan- 
dard output. Conversion characters supported in 
the standard version: 



( 



d decimal integer format 

u unsigned integer format 

c single character 

s string (null-terminated) 

o octal format 

- x hex format 

Each conversion is of the form: 

% [-] [[0] w] [.n] <conv. char.> 

where w specifies the width of the field, and n (if 
present) specifies the maximum number of charac- 
ters to be printed out of a string conversion. De- 
fault value for w is 1. 

The Field will be right-justified unless the dash is 
specifed following the percent sign, forcing left- 
justification. If the value for w is preceded by a 
zero, then zeros are used as padding on the left 
of the field instead of spaces. This feature has 
been implemented for v1.43 of the package, and is 
very useful for printing hexadecimal values; the 
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43. int scanf(format,arg1,arg2,...) 
char 'format; 



feature had been neglected in previous versions. 
An enhanced version of printf, incorporating the e 
and / format conversions for floating point values 
used in Bob Mathias's floating point package, is 
available for compilation in the file FLOAT.C. 



Formatted input. This is analogous to printf, but 
operates in the opposite direction. 
The %u conversion is not recognized; use %d for 
both signed and unsigned numerical input. 
The field width specification is not supported, but 
the assignment suppression character (*) works 
OK. 

The arguments to scanf must be pointers!!!!!. 
Note that input strings (denoted by a %s conver- 
sion specification in the format string) are terminat- 
ed only when the character following the %s in 
the format string is scanned. 

Returns the number of items successfully assigned. 
For a more detailed description of scanf and 
printf, see Kernighan & Ritchie, pages 145-150. 



III. STRING AND CHARACTER PROCESSING 



44. int isalpha(c) 
char c; 



Returns true (non-zero) if the character c is alpha- 
betic; false (zero) otherwise. 



45. int isupper(c) 
char c; 



Returns true if the character c is an upper case 
letter; false otherwise. 
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46. int islower(c) 
char c; 



47. int isdigit(c) 
char c; 



Returns true if the character c is a lower case 
letter; false otherwise. 



Returns true if the character c is a decimal digit; 
false otherwise. 



48. int toupper(c) 
char c; 



If c is a lower case letter, then c's upper case 
equivalent is returned; else c is returned. 



49. int tolower(c) 
char c; 



50. int isspace(c) 
char c; 



If c is an upper case letter, then c's lower case 
equivalent is returned; else c is returned. 



Returns true if the character c is a "white space" 
character (blank, tab or newline); false otherwise. 



51 . sprintf(string,format,arg1 ,arg2,...) 
char *string, *format; 



Like printf, except that the output is written to the 
memory location pointed to by string instead of to 
the console. 



52. int sscanf(string,format,arg1,arg2,...) 
char * string, * format; 

Like scant, except the text is scanned from the 

string pointed to by string instead of the console 

keyboard. 

Returns the number of items successfully assigned. 

Remember that the arguments must be pointers to 

the objects requiring assignment. 
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53. strcat(s1,s2) 
char *s1, *s2; 



54. int strcmp(s1,s2) 
char *s1, *s2; 



55. strcpy(s1 ,s2) 
char *s1, *s2; 



Concatenates s2 onto the tail end of the null ter- 
minated string si. There must, of course, be 
enough room at s7 to hold the combination. 



Returns: 

a positive value if s1 > s2 

zero if s1 = = s2 

a negative value if s1 < s2 
(ASCII collating sequence used for comparisons) 



Copies the string s2 to location s1. 

For example, to initialize a character array named 

foo to the string "barzot", you'd say: 

strcpy(foo,"barzot"); 
Note that the statement 

foo = "barzot"; 
would be incorrect since an array name should 
not be used as an lvalue without proper subscript- 
ing. Also, the expression "barzot" has as its value 
a pointer to the string "barzot", not the string it- 
self. Thus, if the latter construction is preferred, 
then foo must be declared as a pointer to charac- 
ters. This approach is dangerous, though, since 
the natural method to append something onto the 
end of foo would be 

strcat(foo, "mumble"); 
overwriting the six bytes following "barzot" (wher- 
ever "barzot" happens to be stored), probably with 
dire results. 

There are two viable solutions. You can figure out 
the largest number of characters that can possibly 
be assigned at foo and pad the initial assignment 
with the appropriate number of blanks, such as in 

foo = "barzot "; foo[6] = '\0'; 

or, you can declare a character array of sufficient 
size with 

char work(200], *foo; 
then have foo point to the array by saying 
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foo = work; 
and assign to foo using 

strcpy(foo, "whatever _the_beep"); 



56. int strlen(string) 
char *string; 



Returns the length of string (the number of char- 
acters encountered before a zero-byte is detected.) 



57. int atoi(string) 
char 'string; 



58. initw(array.string) 
int * array; 
char *string; 



Converts the ASCII string to its corresponding in- 
teger (or unsigned) value. Acceptable format: Any 
amount of white space (spaces, tabs and new- 
lines), followed by an optional minus sign, followed 
by a consecutive string of decimal digits. First 
non-digit terminates the scan. 
Zero returned if no legal value found. 



This is a kludge to allow initialization of integer ar- 
rays. Array should point to the array to be initial- 
ized, and string should point to an ASCII string of 
integer values separated by commas. For example, 
the UNIX construct of 

int values[5] = {-23,0,1,34,99} 
can be simulated by declaring values normally with 

int values[5]; 
and then inserting the statement 

initw(values,"-23,0,1 ,34,99"); 
somewhere appropriate. 



( 



59. initb(array.string) 
char *array, *string; 



The character equivalent of the above. String is of 
the same format as for initw, but the low order 8 
bits of each value are used to assign to the con- 
secutive bytes of array. 

NOTE: UNIX C programs will sometimes assign 
negative values to character variables, since UNIX 
C character variables are signed 8 bit quantities. 
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With BDS C, negative values can only be meaning- 
fully assigned to normal int variables. 



60. int getval(strptr) 
char **strptr; 



A spin-off from initw and initb: 
Given a pointer to a pointer to a string of ascii 
values separated by commas, getval returns the 
current value being pointed to in the string and 
updates the pointer to point to the next value. 
(Why can't strptr be a simple pointer to charac- 
ters? 1 ) 

When the terminating null byte is encountered, a 
value of -32760 is returned. Initw will thus not ac- 
cept a value of -32760. If you need to use that 
value, you're welcome to go into STDLIB.C and 
change the terminating value to be whatever your 
heart desires (you'll have to change getval and in- 
itw.) 



IV. FILE I/O 

There are two general categories of file I/O functions in the BDS C library. The 
low-level {raw) functions are used to read and write data to and from disk in even 
sector-sized chunks. The buffered I/O functions allow the user to deal with data in 
more manageable increments, such as one byte at a time or one text-line at a time. 
The raw functions will be described first, and the buffered functions (beginning with 
fopen) later. 

Whenever a function takes a filename as an argument, that filename must be ei- 
ther a literal string or a pointer-to-characters that points to a legal filename (actually, a 
literal string is a pointer to characters.) Legal filenames may be upper or lower case, 
but there must be no white space within the string. The filename may contain a leading 
disk designator (single character) followed by a colon to specify a particular CP/M 
drive; the default is the usual currently-logged disk. If certain bizarre characters (such 
as control-characters) are detected within a filename, the filename will be rejected and 
an error value will be returned by the offended function. This somewhat alleviates the 
problem caused by trying to open a file whose name contains unprintable characters, 
but the mechanism still isn't entirely foolproof. Be careful when processing filenames. 



Because the pointer-to-characters pointing to the text string must be altered by the 
getval routine; any object which is to be altered by a function must be manipulated 
through a pointer to such an object. Thus, a pointer-to-characters must be manipu- 
lated through a pointer-to-pointer-to-characters. 
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61. int creat(filename) 
char "filename; 



62. int unlink(filename) 
char "filename; 



Creates a (null) file with the given name, first 
deleting any existing file having that name. The 
new file is automatically opened for writing, and a 
file descriptor is returned for use with read, write, 
seek, tell, fabort, and close calls. 
A return value of -1 indicates an error. 



Deletes the specified file from the filesystem. 
Use with caution!!! 



63. int rename(old.new) 
char "old, "new; 



Renames the file in the obvious manner. 

The file specified must not be open while being 

renamed. 

This function always returns -1 for CP/M 1.4 and 

earlier versions of CP/M; For 2.0 and MP/M, it 

should return for success and -1 only on error. 



64. int open(filename.mode) 
char "filename; 



Opens the specified file for input if mode is zero; 
output if mode is equal to 1; both input and out- 
put if mode is equal to 2. 

Returns a file descriptor, or -1 on error. The file 
descriptor is for use with read, write, seek, tell, fa- 
bort and close calls. 



65. int close(fd) 



Closes the file specified by the file descriptor /of, 
and frees up fd for use with another file. With ver- 
sion 1.4, disk accesses will only take place when a 
file that was opened for writing is closed; if the 
file being closed was only open for reading, then 
the fd is freed up but no actual CP/M call is per- 
formed to close the file. 

Close does not do an automatic fflush for buffered 
I/O files. 
Returns -1 on error. 
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66. int fabort(fd) 



67. int read(fd,buf,nbl) 
char *buf; 



Note that all open files are automatically closed 
upon return to the run-time package from the 
main function, or when the exit function is in- 
voked. To prevent an open file from being closed 
(perhaps because there is a chance that garbage 
was written into it), use the f abort function. 



Frees up the file descriptor Id without bothering to 
close the associated file. If the file was only open 
for reading, this will have no effect on the file. If 
the file was opened for writing, though, then any 
changes made to the currently open extent since it 
was last opened will be ignored, but changes 
made in other extents will probably remain in 
effect. Don't fabort a file open for write, unless 
you're willing to lose the data written into it. 



Reads nbl blocks (each 128 bytes in length) into 
memory at buf from the file having descriptor fd. 
The r/w pointer associated with that file is posi- 
tioned following the just-reaid data; each call to 
read causes data to be read sequentially from 
where the last call to read or write left off. The 
seek function may be used to modify the r/w 
pointer. 

Returns the number of blocks actually read, for 
EOF, or -1 on error. Note that if you ask for n 
blocks of data when there are only m blocks actu- 
ally left in the file (where < m < n), then m 
would be returned on that call, on the next call 
(provided seek isn't used), and then -1 on subse- 
quent calls. 



68. int write(fd,buf,nbl) 
char *buf; 



Writes nbl blocks from memory at buf to file fd. 
Each call to write causes data to be written to disk 
sequentially from the point at which the last call to 
read or write left off, unless seek is used to modify 
the r/w pointer. 

Returns -1 on error, or the number of records suc- 
cessfully written. If the retun value is non negative 
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but different from nbl, it probably means you ran 
out of disk space; this should be regarded as an 
error. 



*69. int seek(fd,offset,code) 



Modifies the next read/write record (sector) pointer 
associated with file fd. 

If code is zero, then sets the r/w pointer to offset 
records. 

If code is equal to 1, then sets the r/w pointer to 
its current value plus olfset (offset may be nega- 
tive.) 

A return value of -1 indicates that the resulting 
offset was out of range for the given file (cannot 
seek past EOF). If this occurs, the internal data for 
the file usually get screwed up royally; the file 
should be closed (or fabort-ed) and re-opened be- 
fore any further operations on it take place. Under 
CP/M, it is possible to seek without error to any 
point within the currently active extent (16K byte 
portion) of a file, but subsequent read or write 
operations under such circumstances may cause 
unpredictable results. 

Seeks should not be performed on files open for 
buffered I/O. 



70. int tell(fd) 



Returns the value of the r/w pointer associated 
with file fd. This number indicates the next sector 
to be written to or read from the file, starting from 

0. . 



71. int fopen(filename,iobuf) 
char filename; 
struct _buf *iobuf; 



Opens the specified file for buffered (one datum at 
a time) input, and initializes the buffer pointed to 
by iobuf. lobuf should be a BUFSIZ-byte area 
reserved for use by the buffered I/O routines. The 
value of BUFSIZ is determined by the BDS C stan- 
dard I/O header file (BDSCIO.H), which should be 
#include-ed in any program using buffered I/O. 
Former versions of the package used a fixed- 
length buffer (134 bytes, to be exact) which limited 
the I/O buffering to one sector at a time; the 1.4 
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package allows the user to customize the size of 
the I/O buffers by changing a # define statement 
in the BDSCIO.H file. See the comments in 
BDSCIO.H for more details. 
The technical structure of the buffer is 
struct _buf { 

int _fd; 

int _nleft; 

char *_nextp; 

char _buff[NSECTS * SECSIZ]; 

}; 

but all that really matters to the user is that it is a 
BUFSIZ-byte area, declarable by 

char samplebuf[BUFSIZ]; 
Return value is the file descriptor for the opened 
file; it need not be saved after the initial test for 
an error, since all needed information is automati- 
cally maintained in the I/O buffer. Note that the 
new fclose function, for closing buffered I/O files, 
eliminates the need for saving the file descriptor 
returned by fopen since the close function need 
no longer be used. 
-1 returned on error. 



72. int getc(iobuf) 

struct _buf *iobuf; 



Returns the next byte from the buffered input file 
opened via fopen having buffer at iobuf. No spe- 
cial codes are recognized; control-Z comes 
through as control-Z (not -1), CR and LF are ordi- 
nary characters, etc. 
ge/c(0) is equivalent to getcharQ. 
getc{3) reads a character from the CP/M "reader" 
device. 

The values and 3 may be used in place of the 
iobuf argument with any buffered input function, to 
direct the input from the console or the reader. -1 
is returned on error or on physical end-of-file. 
When reading in text files with getc, both the 
value Ox 1a (CPMEOF) and the normal error value 
(-1, or ERROR) should be checked for when test- 
ing for end-of-file, since some CP/M text editors 
neglect to place a 0x1 a byte (control-Z, CPMEOF) 
at the end of a text file under certain cir- 
cumstances. 
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73. ungetc(c, iobuf) 
char c; 
struct _buf * iobuf; 



74. int getw(iobuf) 
struct _buf *iobuf; 



75. int fcreat(filename,iobuf) 
char *filename; 
struct _buf *iobuf; 



76. int putc(c.iobuf) 
char c; 
struct _buf *iobuf; 



Pushes the character c back onto the input buffer 
at iobuf. The next call to getc on the same file will 
then return c. No more than one character should 
be pushed back at a time. .'.. i 



Returns next 16 bit word from buffered input file 

having buffer at Iobuf, via two consecutive calls to 

getc. 

-1 returned on error. 



Creates a file named filename (first deleting any 
existing file by the same name) and opens the file 
for buffered output. Iobuf should point to a 
BUFSIZ-byte buffer. 
Returns the fd for the file, or -1 on error. 



Writes the byte c to the buffered output file having 
buffer at iobuf. Iobuf should have been initialized 
by a call to fcreat. 

No translations are performed; text lines can be 
separated by either CR-LF combinations (for com- 
patibility with standard CP/M software) or by new- 
line (LF) characters a la UNIX (for increased 
efficiency and straightforwardness.) 
pi/fc(c,1) is equivalent to putchar(c). 
putc{c,2) writes the character to the CP/M "list" 
device. 

pufc(c,3) writes the character to the CP/M 
"punch" device. 

When writing out text to a file, be sure to ter- 
minate the text with a control-Z (0x1 a, CPMEOF) 
byte. 

The values 1, 2, and 3 may be used in place of 
iobuf with any buffered output routines to direct 
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77. int putw(w.iobuf) 
struct _buf *iobuf; 



78. int fflush(iobuf) 
struct _buf * iobuf; 



79. int fclose(iobuf) 
struct _buf *iobuf; 



the output character to the console, list device, or 

punch device instead of to a file. 

A call to fflush should always be made before 

closing the file (f close is used to close a buffered 

output file.) 

Returns -1 on error. 



Writes the 16 bit word w to buffered output file 

having buffer at iobuf, via two consecutive calls to 

putc. 

Returns -1 on error. 



Flushes output buffer iobuf. I.e., it makes sure that 
any characters that may currently be in the output 
buffer make it into the file on disk. Fflush does not 
close the file. 

Note that an automatic flush takes place whenever 
the output buffer fills up; fflush need normally be 
called only once right before the file is closed (via 
fclose.) 

Fflush is to be used only with buffered output files. 
Doing an fflush on an input file is both meaning- 
less and dangerous to the integrity of the file. 



Closes the buffered I/O file specified (it may have 
been opened for either reading [via fopen] or writ- 
ing [via fcreat]). If the file was opened for writing, 
then an fflush call should have been performed im- 
mediately before the fclose call. 



80. int fprintf(iobuf,format,arg1,arg2,...) 

struct _buf * iobuf; 

char * format; 

Like printf, except that the formatted output is writ- 
ten to the buffered output file having buffer at 
iobuf instead of to the console. 
Returns -1 on error. 



51 



BDS C User's Guide 



May 1981 



81. int fscanf(iobuf,format,arg1 ) arg2,...) 

struct _buf *iobuf; 

char * format; 

Like scant, except that the text input is scanned 
from the buffered input at iobuf instead of from 
the console. The present version of fscanf requires 
that each line of data be scanned completely; any 
items left on a line read from a file after all format 
specifications have been satisfied will be discard- 
ed. 

Returns the number of items successfully assigned, 
or -1 if an error occured in reading the file. 



82. char *fgets(str,iobuf) 
char *str; 
struct _buf *iobuf; 



Reads a line in from the specified buffered input 
file and places it in memory at the location pointed 
to by str. 

This one is a little tricky due to the CP/M conven- 
tion of having both a CR and a LF at the end of 
lines. In order to make text easier to deal with 
from C programs, fgets automatically strips off the 
CR from any CR-LF combinations that come in 
from the file. Any CR characters not immediately 
followed by LF are left intact. The LF is included 
as part of the string, and is followed by a null byte 
(Note that LF is the same as '\n'.) There is no 
check on the length of the line being read in; care 
must be taken to make sure there is enough room 
at str to hold the longest line imaginable (a line 
must be terminated by a newline (alias LF alias 
'\n') character before it is considered complete. 
Zero is returned on EOF, whether it be a physical 
EOF (attempting to read past the last sector of a 
file) or a control-Z (CPMEOF) character in the file. 
Otherwise, a pointer to the string is returned (the 
same as the passed value of str.) 
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83. int fputs(str.iobuf) 
char *str; 
struct _buf *iobuf; 



84. int setfcb(fcbaddr,filename) 
char filename; 



Writes the null -terminated string from memory at str 
into the specified buffered output file. Newline 
characters are converted into CR-LF combinations 
to keep CP/M happy. If a null (zero byte) is found 
in the string before a newline, then there will be 
no line terminator at all appended to the line on 
output (allowing partial lines to be written.) 



Initializes a CP/M file control block located at ad- 
dress fcbaddr with the null-terminated name point- 
ed to by filename. 

The next-record and extent-number fields of the 
fcb are zeroed. 

If any screwy characters (the kinds not usually 
desirable in the name or extension fields of a file 
control block) are encountered within the filename 
string, then the offending character and remainder 
of the filename string will be ignored. 



85. char *fcbaddr(fd) 



Returns the address of the internal, usually invisi- 
ble file control block associated with the open file 
having descriptor fd. 

-1 is returned if fd is not the file descriptor of an 
open file. 



V. PLOTTING FUNCTIONS (FOR MEMORY-MAPPED VIDEO BOARDS) 



86. setplot(base,xsize,ysize) 



Defines the physical characteristics (starting ad- 
dress, dimensions) of a memory- mapped "DMA" 
video board such as the Processor Technology 
(R.I.P) VDM-1. Base is the starting address of the 
video memory; xsize is the number of lines in the 
display; ysize is the number of characters per line. 
Setplot need only be called once at the start of 
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program execution; from then on, the functions 
clrplot, plot, txtplot and line will know about the 
given parameters. If you are using a Processor 
Tech VDM-1, setplot need not be called at all; the 
parameters are automatically set up for the VDM-1 
as part of the start-up sequence for every C- 
generated COM file. 



C 



87. clrplotQ 



88. plot(x,y,chr) 
char chr; 



Clears the memory-mapped video screen (fills with 
ASCII spaces.) 



Places the character chr at coordinates (x,y) on 

the video screen. 

(x,y) is read as: x down, y across, where 

<= x < xsize, 

< = y < ysize. 



89. txtplot(string,x,y,ropt) 
char *string; 



Places an ASCII string on the screen at position 
(x,y); If ropt is non-zero, then each byte of the 
string is logical OR-ed with the value 0x80 before 
being displayed. This forces the high-order bit to a 
1, causing the character to appear in reverse- video 
on some boards (such as the VDM-1) or do other 
funny random things with other boards. 



( 



90. Iine(c,x1,y1,x2,y2) 



Line only works with a 64 by 16 board. 
This function draws a "crooked line" (because 
there is no way to make a line look straight with 
64 by 16 resolution!!) between the points (x1,y1) 
and (x2,y2) inclusive. The line is made up of the 
character c. 
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BDS C is designed to be a subset of UNIX C. Therefore, most parts of the C 
Reference Manual apply to BDS C directly; the purpose of these notes is to docu- 
ment the other parts. 

After presenting a general summary of differences between the two implementa- 
tions, I'll go into detail by referring to appropriate section numbers from the book and 
describing how BDS C differs from what is stated there. Any sections that are appropri- 
ate as they stand (with regard to BDS C) will be ignored. 

Here is a summary of the most significant ways in which BDS C differs from UNIX 
C: 

1) The variable types short int, long int, float and double are not supported 

2) There are no explicitly declarable storage classes. Static and register vari- 
ables do not exist; all variables are either external or automatic, depending 
on the context in which they are declared. 

3) The complexity of declarations is restricted by certain rules. 

4) No initializers are allowed. 

5) String space storage allocation must be handled explicitly (there is no au- 
tomatic allocation/garbage collection mechanism). 

6) Compilation is accomplished directly into 8080 machine code, with no inter- 
mediate assembly language file produced. 

7) Only a bit of intelligent code optimization is performed. 

8) The entire source file is loaded into main memory at once, as opposed to 
being passed through a window. This limits the maximum length of a single 
source function to the size of available memory. 

9) BDS C is written in 8080 assembler language, not in C itself. If BDS C were 
written in itself, the compiler would be five times as long and run incredibly 
slower. Remember that we're dealing with 8080 code here, not PDP-11 code 
as in the original UNIX implementation. 
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The following is a section-by-section annotation to the C Reference Manual. For 
the sake of brevity, some of the items mentioned above will not be pointed out again; 
any references to floats, longs, statics, initializations, etc., found in the book should 
be ignored. 

1. Introduction 

BDS C is resident on Intel 8080 based microcomputer systems equipped with the 
CP/M operating system, and generates 8080 binary machine code (in a special relocat- 
able format) directly from given C source programs. As might be expected, BDS C will 
also run on any machine that is upward compatible from the 8080, such as the Zilog 
Z-80 or Intel 8085. 

2.1 Comments 

Comments nest by default; to make BDS C process comments the way Unix C 
does, the -c option must be given to CC1 during compilation. 

2.2 Identifiers (names) 

Upper and lower case letters are distinct (different) for variable, structure, union 
and array names, but not for function names. Thus, function names should always be ( 

written in a single case (either upper or lower, but not mixed) to avoid confusion. For 
example, the statement 

char foo.Foo.FoO; 
declares three character variables with different names, but the two expressions 

printf("This is a test\n"); 
and 

prINTfCThis is a test\n"); 
are equivalent. 

2.3 Keywords 

BDS C keywords: 

int else 

char for 



1. Appendix A of The C Programming Language. 



2. Function names are stored internally as upper-case-only. 
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struct 


do 


union 


while 


unsigned 


switch 


goto 


case 


return 


default 


break 


sizeof 


continue 


begin 


if 


end 


register 





Identifiers with the same name as a keyword are not allowed (although keywords 
may be imbedded within identifiers, e.g. charflag.) 

On terminals not supporting the left and right curly-brace characters { and }, the 
keywords begin and end may be used instead. Note that you cannot have any 
identifiers in your programs named either "begin" or "end". 



4. What's in a name? 

There are only two storage classes, external and automatic, but they are not ex- 
plicitly declarable. The context in which an identifier is declared always provides 
sufficient information to determine whether the identifier is external or automatic: de- 
clarations that appear outside the definition of any function are implicitly external, and 
all declarations of variables within a function definition are automatic. 

Automatic variables have a lexical scope that extends from their point of declara- 
tion until the end of the current function definition. A single identifier may not normal- 
ly appear in a declaration list more than once in any given function, which means: a 
local structure member or tag may not be given the same name as a local variable, and 
vice versa. See subsection 11.1 for a special case. 

In BDS C, there is no concept of blocks within a function. Although a local vari- 
able may be declared at the start of a compound statement, it may not have the came 
name as a previously declared local automatic variable. In addition, its lexical scope 
extends past the end of the compound statement and all the way to the end of the 
function. 

I strongly suggest that all automatic variable declarations be confined to the begin- 
ning of function definitions, and that the practice of declaring variables at the head of 
compound statements be avoided. Sooner or later, future releases of BDS C will have 
a declaration, mechanism identical to UNIX C. 

If several files share a common set of external variables, then all external variable 
declarations must be identically ordered within each of the files involved. The external 
variable mechanism in BDS C is handled much like the unnamed COMMON facility of 
FORTRAN. So, if your main source file declares the external variables a,b,c,d and e, 
in that order, while another file uses only a, b and c, then the second file need not 
declare d and e. On the other hand, if the second. file used d and e but not a, b or 



1. The recommended procedure for a case such as this is to prepare a single file (us- 
ing your text editor) containing all common external variable declarations. The file 
should have extension .H (for "header"), and be specified at the start of each 
source file via use of the "# include" preprocessor directive. 



-57- 



BDS C User's Guide March 1981 



c, then all of the variables must be declared so that d and e (from the second file) do 
not clash with a and b (from the first) and cause big trouble. As an added inconveni- 
ence, all external variables used in a program (set of dependent source files) must be 
declared within the source file containing the main function, regardless of whether or 
not that source file uses them all. 

As long as all common external declarations are kept in a single ".H" file, and 
# include is used within each source file of a program to read in the ".H" file, there 
shouldn't be any trouble. Well, relatively little anyway. 



6.1 Characters and integers 

Sign extension is never performed by BDS C. 

Characters are interpreted as 8-bit unsigned quantities in the range 0-255. 

A CHAR VARIABLE CAN NEVER HAVE A NEGATIVE VALUE IN BDS C. Be 
careful when, for example, you test the return value of functions such as getc, which 
return -1 on error but "characters" normally. Actually, the return value is an int al- 
ways, with the high byte guaranteed to be zero when there's no error. If you assign the 
return value of, say, getc to a character variable, then a -1 will turn into 255 as stored 
in the 8-bit character cell, and testing a character for equality with -1 will never return 
true. Watch it. 

Most arithmetic on characters is accomplished by converting the character to a 
16-bit quantity and zeroing the high-order byte. In some non-arithmetic operations, 
such assignment expressions, BDS C will optimize by ignoring the high order byte 
when dealing with character values. To take advantage of this, declare any variables 
you trust to remain within the 0-255 range as char variables. 



7. Expressions 

Division-by-zero and mod-by-zero both result in a value of zero. 

7.2 Unary Operators 

The operators 

(type-name) expression 
sizeof (type-name) 

are not implemented. The sizeof operator may be used in the form 

sizeof expression 

provided that expression is not an array. To take the sizeof an array, the array must 
be placed all by itself into a structure, allowing the sizeof the structure to then be 
taken. 



( 
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7.5 Shift operators 

The operation » is always logical (O-fill). 



7.11, 7.12 Logical AND and OR operators 

These two operators have equal precedence in BDS C, making parenthesization 
necessary in certain cases where it wouldn't be necessary otherwise. The only excuse 
I can offer to compiler hackers is this: BDS C does not create a syntax tree in parsing 
arithmetic expressions. 



8. Declarations 

Declarations have the form: 

declaration: 

type-specifier declaration-list ; 

There are no "storage class" specifiers. 

8.1 Storage class specifiers 

Not implemented. 

8.2 Type specifiers 

The type-specifiers are 

type-specifier: 
char 
int 

unsigned 
register 
struct-or-union-specifier 

The type register will be assumed synonymous with int, unless it is used as a 
modifier (e.g. register unsigned foo;), in which case it will be ignored completely. 
There are no other "adjectives" allowed: 

unsigned int foo; 

must be written as 

unsigned foo; 



-59- 



BDS C User's Guide March 1981 

8.3 Declarators 

Initializers are not allowed. Thus, 

declarator-list: 

declarator 

declarator , declarator-list 

8.4 Meaning of declarators 

UNIX C allows arbitrarily complex typing combinations, making possible declara- 
tions such as 

struct foo *( *{ *bar[3][3][3]) ) 0; 

which declares bar to be a 3x3x3 array of pointers to functions returning pointers to 
functions returning pointers to structures of type foo. 

Alas, BDS C wouldn't allow that particular declaration. 

Here is what BDS C will allow: 

First, let a simple-type be defined by 

simple-type: 
char 
int 

unsigned 
struct 
union 



and a scalar-type by 



scalar-type: 

simple -type 

po inter-to -scalar-type 

po inter-to -function 



A special kind of scalar type is a pointer-to-function. This is a variable which 
may have the address of a function assigned to it, and then be used (with the proper 
syntax) to call the function. Because of the way BDS C handles these critters internally, 
pointers to pointer-to-function variables will not work correctly, although pointers to 
functions returning any scalar type (except struct, union, and pointer-to-function) are 
OK. 



So far, scalar-types cover declarations such as 

int x,y; 
char *x; 
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unsigned *fraz; 
char **argv; 
struct foobar *zot, bar; 
int •( *ihtfp)0; 



(The last of the above examples declares ihtfp 
to be a pointer to a function which returns 
a pointer to integer.) 

Building on the scalar-type idea, we define an array to be a one or two dimen- 
sional collection of scalar-typed objects (including pointer-to-function variables). Now 
we can have constructs such as 

char *x[5][10]; 
int **foo[10]; 
struct zot bar [20] [8]; 
union mumble *bebop[747]; 
int ( *foobar[10] ) (); 

(The last of the above examples declares foobar 
to be an array made up of ten pointers to 
functions returning integers.) 

Next, we allow functions to return any scalar type except pointer-to-function, 
struct or union (but not excluding pointers to structures and unions.) 

Some more examples: 

char *bar0; 
declares bar to be a function returning a pointer to character; 

char •( *bar)(); 
declares bar to be a pointer to a function returning a pointer to characters; 

char •( *bar[3][2]) (); 

declares bar to be a 3 by 2 array of individual pointers to functions returning pointers 
to characters; 

struct foo zotO; 

attempts to declare zot to be a function returning a structure of type foo. Since func- 
tions cannot return structures, this would cause unpredictable results. 

struct foo *zot(); 

is OK. Now zot is declared as returning a pointer to a structure of type foo. 
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Lastly, it must be mentioned that explicit pointers-to- arrays are not allowed. In oth- 
er words, a declaration such as 

char ( Moo) [5]; 

would not succeed in declaring foo to be a pointer to an array. Due to the relative 
simple-mindedness of the BDS C compiler (and its programmer), the preceding declara- 
tion is the same in meaning as 

char *foo[5]; 

On the brighter side, any formal parameter declared to be an array is internally 
handled as a "pointer-to-array," causing an automatic indirection to be performed 
whenever the appropriate identifier is used in an expression. This makes passing ar- 
rays to functions as easy as pi. For an extensive example of this mechanism, check out 
the Othello program included with some versions the BDS C package. 



8.5 Structure and union declarations 

"Bit fields" are not implemented. Thus we have 



struct -or-union-specifier: 

struct-or-union { struct-decl-list } 
structor-union identifier { struct-decl-list } 
struct-or-union identifier 

struct-or-union: 
struct 
union 

struct-decl-list: 

struct-declaration 
struct-declaration struct-decl-list 

struct-declaration: 

type-specifier declarator-list; 

declarator-list: 

declarator 

declarator, declarator-list 

Names of members and tags in structure definitions cannot be the same as any 
regular local variable names. The only time more than one structure or union per func- 
tion can use a given identifier as a member is when all instances have the identical 
type and offset; see subsection 11.1. 
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8.6 Initializers 



Sorry; no initializers allowed. 

External variables are not automatically initialized to zero. 



8.7, 8.8 Type names 

Not applicable to BDS C. 

9.2 Blocks 

There are no "blocks" in BDS C. Variables cannot be declared as local to a block; 
declarations appearing anywhere in a function remain in effect until the end of the 
function. 

9.6 For statement 

Here the book is slightly confusing. 

The for statement is not completely equivalent to the while statement as illustrat- 
ed, for this reason: should a continue statement be encountered while performing the 
statement portion of the for loop, control would pass to expression-3. In the while ver- 
sion, though, a continue would cause control to pass to the test portion of the loop 
directly, never executing expression-3 during that particular iteration. The representa- 
tion given in section 9.9 is correct since the increment is implied (to occur at contin:) 
rather than written explicitly. 

This is merely a documentation bug in the book; both the UNIX C compiler (as far 
as I can tell) and the BDS C compiler handle the for case correctly. 

9.7 Switch statement 

There may be no more than 200 case statements per switch construct. 
Note that multiple cases each count as one, so the statement 

case 'a': case 'b': case *c': printf("a or b or c\n"); 

counts for three cases. 

9.12 Labeled statement 

A label directly following a case or default is not allowed. The label should be 
written first, and then the case or default. For example, 

case 'x': foobar: Sat_Nite_Live - Funny; 

is incorrect, and should be changed to 

foobar: case V: Sat_Nite_Live = Funny; 
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10. External definitions 

Type specifiers must be given explicitly in all cases except function definitions 
(where the default is int.) 



11 .1 Lexical scope 

Members and tags within structures and unions should not be given names that 
are identical to other types of declared identifiers. BDS C does not allow any single 
identifier to be used for more than one thing at a time, except when a local identifier 
causes a similarly named external identifier to disappear temporarily. This means that 
you cannot write declarations such as: 

struct foo { /• define struct of type "foo" */ 

int a; 

char b; 
} foo[10]; /* define array named "foo" made up 

of structures of type "foo" */ 

which are basically confusing and shouldn't be used anyway, even if UNIX C does al- 
low them. 

The one exception to this rule involves structure elements. The compiler will 
tolerate the same identifier being used as a member within the definition of different 
structures, as long as 1) the type and 2) the storage offset from the base of the struc- 
ture are identical for both of the instances. The following, sequence, for example, uses 
the identifier "cptr" in a legal manner: 



/* type: char *, offset: 3 V 



struct foo { 
int a; 
char b; 
char *cptr; 

}; 


struct bar { 
unsigned aa; 
char xyz; 
char *cptr; 

}; 



/• type: char *, offset: 3 */ 



11.2 Scope of externals 

There is no extern keyword; all external variables must be declared in exactly the 
same order within each file that uses any subset of them. Also, all external variables 
used in a program must be declared within the source file that contains the main func- 
tion. 

Here is how externals are normally handled: location 0015h of the runtime pack- 
age (usually 0115h or 431 5h at run-time) contains a pointer to the base of the external 
variable area: all external variables are accessed by indexing off that two byte value. 



1. The -e xxxx option to CC1 may be used to locate the external variable area at ab- 
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The amount of space allocated for external variables is equal to the space needed by 
all external variables defined in the main source file. Because no information is record- 
ed within CRL files about external storage or external names (other than the total 
number of bytes involved and, optionally, the explicit starting address of the externals), 
it is up to the user to make sure that each source file contains an identical list of 
external declarations; the names don't necessarily have to be identical for each 
corresponding external variable in separate files (although naming them differently is 
just asking for trouble), but the types and storage requirements should certainly 
correspond. 

It would not be far off the mark to consider BDS C external variables as just one 
big FORTRAN-like COMMON block. 



12.1 Token replacement 

Only the simple text-substitution command 

# define identifier token-string 
is implemented. Parameterized # defines are not supported. 

12.2 File Inclusion 

Either quotes or angle brackets may be used to delimit the filename; both have 
exactly the same effect. 

Although file inclusion may be nested to any reasonable depth, error reporting 
does not recognize more than one level of nesting. Try experimenting with the "-p" op- 
tion of CCi, varying the level of inclusion nesting, to see exactly what happens. 

12.4 Line Control 

Not supported. 



solute location xxxx, thereby considerably speeding up and shortening the code 
produced by the compiler. Even so, all the declaration constraints must still be ob- 
served. 

Reminder: if you use the library functions alloc and free, you must include the 
header file "bdscio.h" with ALLOC-ON defined, and make sure that STDLIB1.C was 
also compiled with ALLOCON enabled; there are several external data objects re- 
quired by alloc 

and free declared within bdscio.h, and omission of these declarations within any 
source file having external variables would cause an undesirable data overlap. 
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15. Constant expressions 

BDS C will simplify constant expressions at compile-time only when the constant 
expressions occur in one of the following places: following left square brackets, fol- 
lowing the case keyword, following assignment operators, following left parentheses, 
and following the return keyword. Any constant expression not falling into one of 
those categories is guaranteed to not be simplified at compile-time. 

The standard procedure for insuring the compile-time evaluation of constant ex- 
pressions when such expressions fall inside larger expressions involving variables is to 
enclose the constant expressions in parentheses. Thus, statements such as 

x = x + y + 15*10; 

will not be simplified, and in general will generate more (and slower) code than the 
better form: 

x = x + y + (15*10); 



18.1 Expressions 

The unary operators are: 

* & - ! ~ + + -- sizeof 



The binary operators && and || have equal precedence. 
sizeof cannot correctly evaluate the size of an array. 



18.2 Declarations 

The complete syntax for declarations is 

declaration: 

type-specifier declarator-list ; 

type-specifier: 
chat 
int 
unsigned 

struct-or-union-specifier 

declarator-list: 

declarator 

declarator , declarator-list 

declarator: 

identifier 

( declarator ) 

* declarator 
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declarator 

declarator [ constant expression ] 

struct-or-union-specifier: 

struct { declarator-list } 

struct identifier { declarator-list } 

struct identifier 

union { declarator-list } 

union identifier { declarator-list } 

union identifier 



18.4 External definitions 

data-definition: 

type-specifier declarator-list ; 

18.5 Preprocessor 

The preprocessor directives 

# define identifier token-string 

# include "filename" 

# ifdef identifier 
//ifndef identifier 
#else 

#endif 

# undef identifier 

are all now supported, but with some restrictions: 

The ' # ' character must be in the first column of the line, and there may be no space 
between the ' #'and the rest of the preprocessor directive name. 

There is no nesting of conditional compilation directives allowed. I.e., after either an 
# ifdef or #ifndef is encountered, there must occur either an #endif or an #else 
before another # ifdef or #ifndef. Breaking this rule may not bomb the compiler, but 
it isn't too likely to yield the desired result, either. 

# Defines may appear anywhere in the source file, their scope extending until the 
end of the file or until the identifier is re- # defined. Parameterized # defines are not 
supported. 

File inclusion may nest to any depth (although mutually inclusive files may just 
manage to bomb CC1), but both the us "p" option with CC1 and error reporting for 
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CC1 and CC2 become easier to deal with if you limit yourself to non-nested inclusion. 



The Mistakes Most Commonly Made By Beginning C Programmers 

There are several aspects of the C language that tend to cause a great deal of 
browbeating when tackled for the first time. In this section I will try to summarize 
those sensitive "features" of C that are constantly being brought to my attention by 
confused users in their phone calls and letters. 

1) How NOT to use a pointer: When a pointer variable is declared in a program, 
either externally or within a function, it is NOT given a value automatically. 
A pointer is simply a 16-bit variable that is typically used hold the address of 
some other piece of data (to point to it), and must be initialized before being 
used, just like any variable. The particular mistake I see most often involves 
assigning a value indirectly through an uninitialized pointer; i.e, the declara- 
tion 

char Moo; 

would be later followed by a statement such as 

*foo = 'a'; 

before foo is ever initialized, and unpredictable things would begin to hap- 
pen. What the assignment statement above says is "place the character 'a' 
into memory at the location pointed to by the variable foo. If foo has never 
been initialized to anything, then the 'a' byte would be placed at some totally 
random location in memory. The correct procedure here would have been to 
declare a buffer area, assign the address of that area to foo, and then use 
foo in the manner above. Such a sequence would appear as: 

char buffer[50], *foo; 
foo = &buffer; 

♦foo = 'a'; 

where the character 'a' is placed into the first byte at buffer. 

2) Functions must not return pointers to their own local data! As soon as a 
function returns to its caller, storage that was local to that function is deallo- 
cated and made available to the next called function. A common mistake is 
to have some function (call it foo) create a piece of text in a local buffer 
and return a pointer to that text... Immediately upon return from foo, the 
string appears intact, but later on in the course of the program (as the space 
in which the string resides is allocated for other functions' local data 
frames), the string turns into garbage. There are two viable solutions to this 
kind of problem: either have foo take a parameter tolling it where to put the 
string result (in which case the caller must provide a working buffer for foo) 
or make the destination string area external. Each method has advantages 
over the other; passing a destination area on each call allows many such re- 
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turned strings to be saved separately in different areas of memory, while an 
external destination area shortens the calling sequence by requiring one less 
parameter to be passed. But whatever you do, do NOT expect any data that 
was local to a called function to remain valid after that function has re- 
turned!! 

3) What is a "formal parameter", anyway? A formal parameter is one of the ar- 

guments (if any) that a function expects to have passed to it whenever 
called. All formal parameters are specified at the beginning of a function's 
definition as a parenthesized list immediately following the function name. 
The declarations of a function's formal parameters must be made immediately 
after the parenthesized list, before the first open-squiggly brace that marks 
the beginning of the function body. Formal parameters which are not de- 
clared are assumed to be simple int values; should a formal parameter ac- 
cidentally be declared within the actual function body, the compiler would 
correctly give a "redeclaration" error, since once the formal declarations are 
passed and the compiler begins processing the function body without having 
seen a declaration for a formal parameter, then that formal parameter will 
have been automatically declared an int. 

Whenever a function call is made, copies of the values of any formal 
parameters are passed to the function. All such values are 16 bits in length 
(at least with BDS C v1.4). This means that structures, arrays, unions, and 
any data type not inherently 16 bits in size cannot be copied and passed to 
a function; pointers to such data types, though, can. There is a special 
magic mechanism for passing pointers to arrays that can be confusing, be- 
cause it is not intuitively obvious from the declaration syntax that a pointer is 
actually being passed; for example, a function beginning with the sequence 

int arraysum (array) 
int array[100]; 
{ 

} 

may appear to take an array of 100 elements as a formal parameter. Actually, 
only a pointer to that array is passed, but the usage is the same as if it were 
an actual array. The big difference, though, is that if you change any ele- 
ment in the array here, you'll be changing that element for the calling pro- 
gram also, while changing a simple non-array formal parameter would not 
alter the original value from which the parameter was copied (back in the 
calling program.) Another tricky point about formal array parameters is that 
you can actually treat the array name as a simple pointer variable within the 
called function (i.e., assign to it the address of another array and wholla! it 
then becomes the base of that other array...) while such things would not 
work (and indeed, cause unpredictable results) when the array is an actual 
(non-formal-paramoter) array. The Kernighan & Ritchie book contains an en- 
tire chapter on the duality of pointers and arrays; in this mechanism lie the 
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high points and the more confusing points of C. ^ 

Miscellaneous Notes 

1) The " = " operator is used for assignment only. The relational operator 7s 
equal to' is represented by "= = ". Be careful not to confuse them. 

2) The keywords begin and end may be substituted for left and right curly- 
braces ( { and } ). This feature is provided so that users not having the { 
and } characters on their terminals can still use the compiler. Aesthetically, 
in my opinion anyway, the braces make for much more readable code than 
begin and end do, and should be used whenever possible. 

3) Error recovery is not especially intelligent in some cases. If either CC1 or 
CC2 spews out a set of error messages clustered around the same line or 
set of lines, then only the first error message in the cluster should be be- 
lieved. Chances are that after that error is fixed, the rest will go away. 

Also, the line number given by CC2 in error reports is not always 
guaranteed to be accurate. CC1 does some rearranging of code once in a 
while; for instance, the increment portion of a for statement is physically 
moved down past the statement portion. Thus, if there is an error in the in- 
crement portion that CC1 is not equipped to detect, then CC2 will detect 
it.. .and report the line number erroneously. Try not to mess up the increment 
portion of for statements. 

Certain types of errors will cause the compiler to cease execution and ( 

immediately return to CP/M without scanning the rest of the source. This oc- 
curs when, for example, mismatched parentheses or a missing semicolon 
manage to confuse the compiler to the point where it cannot recover. So, in- 
stead of guessing about where the proper punctuation should be, it aborts to 
let you fix the error quickly and try again. 

3) The "argc and argv" mechanism for passing command line arguments to a C 
main program is implemented identically to its UNIX model, except for one 
thing: CP/M, since it never preserves the name of the .COM file executed, 
makes it tough to get argv[0]" pointing to the command name itself. Thus, 
argv[0] will contain garbage. Don't use it for anything. 

Note that argc is, by convention, always positive, and equal to the 
number of arguments specified plus one. Arguments on the command line 
are treated as strings m all cases, not as values. If you need to specify string 
arguments containing imbedded spaces, then double quotes (e.g. "string 
containing spaces") may be used to delimit such arguments. 

All alphabetic characters on the command line are converted to upper 
case by CP/M. Thus, when scanning command options, be sure to check for 
upper case (or use the tolower function.) 

4) Although initializations are not supported, a couple of convenience functions 
have been provided to allow initialization of integer and character arrays. 

To set any contiguous set of words to integer values, use the function 
initw. For characters (single-byte integers in the range 0-255), use initb. 



( 
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Both of these are documented in the previous section. 
For example, to simulate the UNIX C construct of 

int foobar[10] = {3,0,-2,-5,3,6,9,-23,-14,0}; 
you can first declare foobar normally by saying 

int foobar[10]; 
and then, in the main function, insert the statement 

initw(foobar,"3,0,-2,-5,3,6,9,-23,-14,0"); 

5) When using the function getchar under CP/M, the input character is au- 

tomatically echoed to the console output as it is typed. About the only port- 
able way to suppress this echo is to use the bios library function to read the 
console; note that this causes carriage returns to actually be returned as 
carriage returns instead of being converted to newlines a la getchar. 

Also, the getchar, putchar and ungetch functions may only be used for 
console input and output. On UNIX, these routines are generalized since the 
operating system allows a user to specify that the main input to a program 
come from, say, a file instead of the console. This is known on UNIX as 
directed I/O. A common technique used in the book's sample programs is to 
scan through an input file by using getchar; this only works as long as the 
input to the program can be directed from a file. Since CP/M does not sup- 
port this mechanism, all such sample programs should be rewritten using the 
BDS C buffered I/O functions {fopen, getc, etc.) instead of getchar and 
putchar. 

The important point here is that UNIX achieves a high level of generality 
by assigning the standard input and standard output streams independently 
of their physical characteristics. A simple file copy program named foo writ- 
ten with getchar and putchar would simply echo the console input to the 
console output if invoked by typing 

foo 

but the same program would copy the file bar into the file zot if invoked 
wifh 

foo <bar >zot. 

To approach that level of generality with BDS C under CP/M, it should 
be noted that the buffered I/O functions can used for both file I/O, console 
I/O, and (for version 1.4) list device and reader device I/O. It still might 
take a little bit of extra coding effort to decide whether a user wants file I/O 
or console I/O, but the meaty parts of the I/O transfers can usually be cod- 
ed in a general manner. Many users have asked why I haven't bothered to 
implement directed I/O in the run-time package, like Whitesmiths does. The 
reason is simple: CP/M is not UNIX. Under UNIX, the redirection is a function 
of the operating system, not the C compiler. I'd rather get C running on new 
operating systems that do support redirection (such as Ed Ziemba's MARC 
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DOS) than try to make up for CP/M's lack of versatility with warts- on- warts. 

One more note on this subject: getchar, upon receiving a carriage return 
from the console, automatically echoes a linefeed (in addition to the au- 
tomatic echo of the CR) and returns a newline character. Getc, on the other 
hand, when used for inputting characters from a text file, does not change 
CR-LF combinations into newlines. If you'd like this to happen, write your- 
self a little routine (say, getc2) that calls gefc and filters out CR-LFs by issu- 
ing a dummy call to gefc following each CR encountered and returning a 
newline in such cases. Once this is done, the process of writing programs 
that are generalized to both console and file I/O should be as painless as 
possible under CP/M. 

5a) When scanning through an input text file (using, say, getc), the logical-EOF 
character is a control-Z (0x1 a). A return value of -1 from the fileread func- 
tions (read, getc, etc.) indicates a physical EOF (always on a block boun- 
dary) and will probably not coincide with the logical EOF (where the control- 
Z is.) Thus the correct algorithm for detecting the end of a text file must 
check for both of these possible values, and interpret the first one encoun- 
tered as the EOF. Note that if you are assigning the return value of a func- 
tion such as getc to a character variable, the the -1 physical-EOF condition 
value magically turns into 255 after assignment. 

When writing output text files, be sure to terminate them with a control- 
Z in an attempt to maintain some kind of consistency; though that seems to 
be more than certain operating system developers have seen fit to do. 

6) Unbuffered file I/O (using open, read and write) is done in terms of blocks, 
not bytes. If you wish to deal with single bytes at a time, it is necessary to 
use the buffered file I/O functions which, unfortunately, are slower (but not 
that much slower with the new user-configurable buffer size.) 

On another speed note, I've found that the CP/M User's Group pro- 
grams FAST.COM and SPEED.COM, written by Bob Van Valzah for 1.4 
CP/M systems, do absolute wonders for the compilation time of all programs 
and the execution speed of file-l/O-bound programs. On my system, the 
average speed of everything has increased around three-fold under SPEED. 
If you've got a system that can. handle these programs, but aren't taking ad- 
vantage of them, you're really missing something. 

7) In a high school environment, a couple of microcomputer systems running 
BDS C combined with copies of the book The C Programming Language for 
every student would provide an excellent setting for an introductory course 
in computer science. Teachers, take note! 

8) The following tidbits should be kept in mind when striving for optimum 
efficiency in compiled programs: 



1. By the way, just for the record, I DO like CP/M... after all, I've been hacking on it 
long enough to get this compiler to a respectable state. But the time has definitely 
arrived for a new generation of operating systems, with UNIX as the trendsetter for 
the time being. Onward to MARC... 
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1. Comments are stripped off a source file dynamically as the file is be- 
ing read in from disk; thus, there is no excuse (except maybe lazi- 
ness) for not documenting a program adequately. 

2. The switch statement is most efficient when the switch variable (e.g. 
xx in "switch(xx)...") is declared as a char. Of course, if values 
outside the character range (0-255) are expected then this informa- 
tion is not very useful. 

3. The cases in a switch statement are tested in the order of their ap- 
pearance; thus, the most common cases (or the ones requiring fastest 
response time) should appear first. 

4. For the fastest execution speed possible, CC1 should be given the -o 
and -e xxxx options for compilation. For the shortest possible code 
length, only the -e xxxx option should be used with CC1. 

5. Logical expressions in C evaluate to a numerical value of (if false) 
or 1 (if true) whenever their value is actually needed, but may not 
evaluate to any value at all when used in flow-of-control tests. This 
means that you can take advantage of the numerical results of logical 
expressions in many situations. Consider the following code fragment, 
whose purpose is to set the variable x to 1 if a<b, or to if a >= b: 

if (a < b) x = 1; 
else x = 0; 

The same operation can be written as 

x = (a < b); 

This takes advantage of how the subexpression "(a < b)" evaluates to 
the desired value automatically, and thus avoids the use of two 
separate assignment expressions, their associated control structure, 
and the considerable overhead that all entails. 

A related opportunity for brevity comes up whenever any variable 
needs to be tested for equality or inequality with zero; since any ex- 
pression may be considered logically "true" if it evaluates to a non- 
zero value, the "!= 0" portion of an expression such as "a != 0" is 
practically redundant. Statements such as 

if (a != 0) printf ("A is non-zeroW); 
or if (a = = 0) printf ("A is zero\n"); 

may just as well be written as 

if (a) printf ("A is non-zero\n"); 
and if (!a) printf ("A is zero\n M ); 
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Of course, such an abbreviation may not always be appropriate to a 
given situation. If the variable in question is used as a counter of 
some sort, and is expected to take on many different values, then 
saying "a != 0" might be clearer in the logic of the program. But in 
cases where the variable is used as a Boolean flag, or where a value 
of zero is considered special in some sense, then the shorter forms 
are clearer and may in fact lead to shorter object code in certain 
cases. 

9) Please report any bugs to: 

Leor Zolman 

33 Lothrop st. 

E3righton, Massachussetts, 02135 

(617) 782-0836 (evenings before 1:00 AM EST) 

Please don't hassle Lifeboat with technical bug reports; they're the pub- 
lishers, not the authors. By reporting any bugs you may encounter direclly to 
me, you'll vastly improve the chances of having a fix for the problem in a 
short amount of time. 

If you have any questions about the package, feel free to bug me about 
it (so to speak.) This gives me some idea of exactly what in the package is 
confusing and in need of more detailed documentation. At the time of this 
writing, there are approximately 1200 (legitimate) copies of BDS C out in the 
field, and I haven't yet been overplagued with phone calls. In fact, a vast 
majority of user feedback has proven very constructive. There is always the 
possibility, however, that sales will skyrocket and cause my phone call 
volume to rise to unmanageable proportions.. .thus I ask that questions about 
the compiler be mailed to the above address, if possible, instead of phoned 
in. If you think you've spotted a bug, though, please call, as I like to find out 
about bugs as soon as possible. 

10. I gratefully thank the following individuals for their invaluable feedback and 
support during the debugging phase of this compiler's development: 

Lauren Weinstein Sid Maxwell 

Leo Kenen Bob Mathias 

Rick Clemenzi Bob Radcliffe 

Tom Bell The Real Cat 

Jon Sieber Al Mok 

Scott Layson Phillip Apley 

Tony Gold Charles F. Douds 

Ed Ziernba Robert Ward 

Scott Guthery Les Hancock 

Earl T. Gohesn Ted Nelson 

Sam Lipson Ward Christensen 

Dan MacLean Jerry Pournelle 



1. Extra thanx to Sid for, among other things, running off all my hard copy when I 
couldn't afford a working printer. 
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Mike Bentley Will Colley 

Carlos Christensen Richard Greenlaw 

Perry Hutchinson Tim-Pugh 

Paul Gans Steve Ward 

John Nail Tom Gibson 

Mark Miller Roger Gregory 

Jason Linhart Don Lucas 

Calvin Teague Rev. Stephen L. de Plater 

Bob Shapiro Nigel Harrison 

Cal Thixton 

Special thanks to Dennis M. Ritchie, Ken Thompson and the entire staff of 
the Computing Science Research Center at Bell Laboratories for developing 
UNIX and the original C. Good work. 

11) The BDS C User's Group has been organized; For information on how to get 
inexpensive updates of the compiler, receive a User's Group newsletter, or 
9et access to contributed programs, contact: 

BDS C User's Group 
Robert Ward, Coordinator 
Dedicated Micro Systems, Inc. 
409 E. Kansas 
Yates Center, Kansas 66783 
(316) 625-3554 



Due to the large volume of assembly sources included with the 1.4 package, 
many of the sample C programs included with prior versions have been 
squeezed out of the distribution package. The BDS C User's Group will have 
all these programs, as should the CP/M User's Group eventually. I recom- 
mend that one of these groups be contacted and the sample programs ob- 
tained, especially if you are .a novice C programmer; the language tends to 
be painful to pick up without lots of examples. 
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The CASM.C Assembly-language-to-CRL-Format Preprocessor 

For BDS C vl.46 
March 3, 1982 

Leor Zolman 
BD Software 
33 Lothrop st. 
Brighton, Ma ssachus setts 02135 

he files making up the CASM package are as follows: 

ASM.C Source file for CASM program 

ASM. SUB Submit file for performing entire conversion of CSM file to CRL 

ASM. DOC This file 

Jso needed: 

.SM.COM (or MAC.COM) 
'DT.COM (or SID.COM) 

escription: 



The only means previously provided to BDS C users for creating relocatable object 
todules (CRL files) from assembly language programs was a painfully complex macro 
>ackage (CMAC.LIB) that only operated in conjunction with Digital Research's macro 
ssembler (MAC.COM). This was especially bad because MAC, if not already owned, cost 
lmost as much as BDS C to purchase. This document describes the program "CASM", 
;upplied to eliminate the need for "MAC". CASM is a preprocessor that takes, as input, 
n assembly language source file of type ".CSM" (mnemonic for C aSseMbly language) in 
format much closer to "vanilla" assembly language than the bizarre craziness of 
MAC. LIB, and writes out an ".ASM" file which may then be assembled by the standard, 
biquitous CP/M assembler (ASM.COM). CASM automatically recognizes which assembly 
anguage instructions require relocation parameters and inserts the appropriate 
>seudo-operations and extra opcodes into the resulting ".ASM" file so that the file 
>roperly assembles directly into. CRL format. In addition, some rudimentary logic 
hecks are performed: doubly-defined and/or undefined labels are detected and 
eported, and similarly-named labels in different functions are ALLOWED and converted 
nto unique names so ASM won't complain. 

The pseudo-operations that CASM recognizes as special control commands within a 
CSM file are as follows: 

UNCTION <name> Each function must begin with "function" pseudo-op, where 

<name> is the name that will be used for the function in the 
.CRL file directory. No other information should appear on 
this line. Note that there is no need to specify a directory 
of included functions at the start of a .CSM file, as was the 
case with the old CMAC.LIB method of CRL file generation. 
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EXTERNAL <list> 



If a function calls other C or assembly-coded functions, an 
"external" pseudo-op naming these other functions must follow 
immediately after the "function" op. One or more names may 
appear in the list, and the list may be spread over as many 
"external" lines as necessary. Note that for the current 
version of BDS C, only function names may appear in 
"external" lines; data names (e.g. for external variables 
defined in C programs) cannot be placed in "external" 
statements. 



ENDFUNC 

(or) ENDFUNCTION 



This op (both forms are equivalent) must appear after the end 
of the code for a particular function. The name of the 
function need not be given as an operand. The three 

pseudo-ops just listed are the ONLY pseudo-ops that need to 
appear among the assembly language instructions of a ".CSM" 
file, and at no time do the assembly instruction themselves 
need to be altered for relocation, as was the case with 
CMAC.LIB. 



LNCLUDE <filename> 
(or) INCLUDE "filename" 



This op causes the named file to be inserted at the current 
line of the output file. If the filename is enclosed in angle 
brackets (i.e., <filename>) then a default CP/M logical drive 
is presumed to contain the named file (the specific default 
for your system may be custimzed by changing the appropriate 
define in CASM.C). If the" name is enclosed in quotes, than 
the current drive is searched. Note that you'll usually want 
to include the file BDS. LIB at the start of your .CSM file, 
so that names of routines in the run-time package are 
recognized by CASM and not interpreted as undefined local 
forward references, which would cause CASM to generate 
relocation parameters for those instructions having run-time 
package routine names as operands. Note that the pseudo-op 
MACLIB is equivalent to INCLUDE and may be used instead. 



"he format for a ".CSM" file is as follows: 



INCLUDE 



bds.lib 



FUNCTION 
EXTERNAL 
code for 
ENDFUNC 



functionl 
needed_funcl 
functionl 



[, needed func2] [,...] ] 



FUNCTION 
EXTERNAL 
code for 
ENDFUNC 



function2 
needed_funcl 
function2 



[, needed func2] [,...] ] 



C 
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Additional notes and bugs: 

0. If a label appears on an instruction, it MUST begin in column one of the line. If a 
label does not begin in column one, CASM will not recognize it as a label and 
relocation will not be handled correctly. 

1. Forward references to EQUated symbols in executable instructions are not allowed, 
although forward references to relocatable symbols are OK. The reason for this is 
that CASM is a one-pass preprocessor, and any time a previously unknown symbol is 
encountered in an instruction, CASM assumes that symbol is relocatable and 
generates a relocation parameter for the instruction. 

2. INCLUDE and MACLIB only work for one level of inclusion. 

3. When a relocatable value needs to be specified in a "DW" op, then it must be the 
ONLY value given in that particular DW statement, or else relocation will not be 
properly handled. 

4. Characters used in symbol names should be restricted to alphanumeric characters; 
the dollar sign ($) is also allowed, but might lead to a conflict with labels 
generated by CASM. 

5. The .HEX file produced by ASM after assembling the output of CASM cannot be 
converted into a binary file by using the LOAD.COM command; instead, DDT or SID 
must be used to read the file into memory, and then the CP/M "SAVE" command must be 
issued to save the file as a .CRL file. CASM inserts a line into the ASM file 
ending in the character sequence "!.", specifically so that the line will be 
flagged as an error. The user may then look at the value printed out at the left 
margin to see exactly how many 256-byte blocks need to be saved; this is the value 
to be used with the "SAVE" command. 

The reason that "LOAD" cannot be used is that CASM puts out the code to generate 
the CRL File directory at the END of the ASM file, using ORG to set the location 
counter back to the base of the TPA, and the "LOAD" command aborts with the' cryptic 
message "INVERTED LOAD ADDRESS" when out-of- sequence data like that is encountered. 
Rather than require CASM to write Out the directory into a new file and append the 
entire previous output onto the end of the directory, I require the user to have to 
enter a SAVE command. What the heck; you'd have to rename the file anyway if it 
were LOADed, right? 

6. The CASM. SUB submit file may be used to perform the entire procedure of converting 
a .CSM file. to a .CRL file. For a file named "FOO.CSM", just say: 

submit casm foo 

and enter the "SAVE" command just the way says when all is done. 



BDS CASM Utility, 3/82 



BDS C Standard Library Summary 
vl.46 Edition — March, 1982 

* 

Leor Zolman 
BD Software 
33 Lothrop st. 
Brighton, Massachussetts 02135 

This document contains an alphabetic summary of ALL general-purpose utiliy 
functions included in the BDS C package spread among several different source files. 
Note that there are quite a few more functions listed here than than apppear in the 
BDS C User's Guide; some functions were intentionally omitted from the User's Guide 
for portability reasons, and many others have come into existence since the last 
revision of the User's Guide. 

The summary is organized by columns. 

The first column shows the type of the result returned by the function. The second 
column shows the calling syntax and parameter types (if not int). 

The next column shows a code naming the source file in which the function may be 
found; the codes are as follows: 

CI for STDLIB1.C 

C2 for STDLIB2.C 

D2 for DEFF2.CSM 

D2A for DEFF2A.CSM 

FLT for FLOAT. C 

DIO for DIO.C 

The next column tells the page number in the BDS C User's Guide where the function 
is documented, if the function appears in the User's Guide at all. For any function 
that isn't documented in the User's Guide, there is probably documentation available 
in the source listing for that function (the source location is given in the 
preceding column.) 

The final column contains references to a set of footnotes following the function 
list. If a function has an entry in the NOTE column, the corresponding footnote (or 
notes) should be examined for additional information about the function. 

TYPE FUNCTION FILE PAGE NOTES 



int abs(a,b) int a,b; 

char * alloc(nbytes) unsigned nbytes; 

char * atof(opl,s) char opl[5], *s; 

int atoi(str) char *str; 

int bdos(c,de) 

char bios(n,c) 

int call(addr,a,h,b,d) unsigned addr; 

char calla(addr,a,h,b,d) unsigned addr; 

int close(fd) 
clrplot() 

char * codend() 

int creat( filename) char * filename; 

char csw() 
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dioflush() 

dioinit(&argc,argv) int *argc; char **argv; 
char * endext() 

int exec( filename) char *filename; 

int execl( filename, argl , arg2, ..., NULL) char *filename; 
int execv( filename ,argvector) char *filename, **argvector; 

exi t(n) 
char * externs() 

fabort(fd) 
char * fcbaddr(fd) 

int fclose(iobuf) FILE *iobuf; 

int fcreat( filename, iobuf) char *filename; FILE *iobuf; 

int fflush( iobuf) FILE *iobuf; 

int fgets( str, iobuf ) char *str; FILE *iobuf; 

int fopen( filename, iobuf ) char *filename; FILE *iobuf; 

char * fpadd( res,opl ,op2) char res[5], opl[5], op2[5]; 

int fpcomp(opl, op2) char opl[5], op2[5]; 

char * fpdiv( res,opl ,op2) char res[5] ,opl [5] ,op2 [5] ; 

char * fpmult(res,opl ,op2) char res[5] ,opl [5] ,op2[5 ] ; 

int fprintf( format , argl, arg2, ...) char *format; 

char * fpsub(res,opl ,op2) char res[5] ,opl [5] ,op2 [5 ] ; 

int fputs(str, iobuf) char *str; FILE *iobuf; 

free(allocptr) unsigned allocptr; 
int fscanf ( iob, fmt ,&argl ,&arg2, . . .) FILE *iob; char *fmt; 

char * ftoa(sl,opl) char *sl; char opl[5]; 

int getc(iobuf) FILE *iobuf; 

int getchar() 

int getline(str,maxlen) char *str; 

char * gets(str) char *str; 

int getval(strptr) char **strptr; 

int getw(iobuf) FILE *iobuf; 

int index(str, substr) char *str, *substr; 

initb(array, string) char array[], *string; 

initw(array, string) int array[ ] ; char *string; 
char inp(port) 

int isalpha(c) char c; 

int isdigit(c) char c; 

int islower(c) char c; 

int isspace(c) char c; 

int isupper(c) char c; 

char * itoa(str, n) char *str; 

char * itof(opl, n) char opl[5]; 

int kbhitQ 

line(c,xl ,yl ,x2,y2) char c; 
int long jmp( jbuf) char jbuf [ JBUFSIZE] ; 

int max(nl,n2) 

int min(nl,n2) 

movmem( source, dest, count) char *source, *dest; 
int nrand(n [, prompt] or [,nl,n2,n3]) char * prompt; 

int open( filename, mode) char *filename; int mode; 

outp( port ,val) char port, val; 

pause () 
char peek(port) char port; 

plot(x,y,c) char c; 
char poke(addr, val) unsigned addr; char val; 

print f( format, argl, arg2, ...) char *format; 
int putc(c, iobuf) char c; FILE *iobuf; 

putch(c) char c; 

putchar(c) char c; 

puts(str) char *str; 

putw(w, iobuf) int w; FILE *iobuf; 
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qsort(base,nel, width, cmp) char *base; int (*cmp)(); 

rand() 
igned rcfsiz(fd) 

read(fd, buffer, nsecs) char *buffer; 

rename (oldname, newname) char *oldname, *newname; 

rread(fd, buffer, nsecs) char *buffer; 

rseek(fd, offset, origin) 

rsrec(fd) 

rsvstk(n) 

rtell(fd) 

rwrite(fd, buffer, nsecs) char *buffer; 
ir * sbrk(nbytes) 

: scanf( format, &argl, &arg2, ...) char *format; 

; seek(fd, offset, origin) 

setfcb(fcbaddr, filename) char *filename; 
t setjmp(jbuf) char jbuf [ JBUFSIZE] ; 

setmem(addr, count, byte) char *addr; char byte; 

setplot(base,xsize,ysize) 

sleep(ntenths) 

sprintf(str, format, argl, arg2, . ..) char *str, *format; 

srand(n) 

srandl(str) char *str; 
t sscanf( str, format, &argl, &arg2, . ..) char *str, *format; 

strcat(sl, s2) char *sl, *s2; 
t strcmp(sl, s2) char *sl, *s2; 

strcpy(sl, s2) char *sl, *s2; 
X strlen(str) char *str; 

swapin( filename, addr) char *filename; unsigned addr; 
Lt tell(fd) 

lar tolower(c) char c; 

lar * topofmem( ) 

lar toupper(c) char c; 

txtplot(string,x,y,ropt) char *string; 

ungetc(c,iobuf ) char c; FILE *iobuf; 

ungetch(c) char c; 

unlink( filename) char *filename; 
it write(fd, buffer, nsects) char *buffer; 



)TES: 



This floating point function returns a pointer to a 5-byte floating point 
object, represented in a character array of length 5. 

The "bdos" function returns HL equal to the value left there by the BDOS 
itself. Under standard CP/M, 8-bit values are returned in L with H cleared, and 
16-bit values are returned in HL. Other "CP/M-like M systems do not always 
follow this convention, though, and the "bdos" function may take rewriting in 
order to work with certain system calls under systems such as "SDOS". 

\. Unless an error occurs, this function should never return at all. 

*. Note that all the upper-level formatted I/O functions ( "print f", " f print f", 
"scanf", and "fscanf") now use " spr" and "_scn" for doing conversions. While 
this leads to very modularized source code, it also means that calls to "scanf" 
and "fscanf" must process ALL the information on a line of text if the 
information is not to be lost; if the format string runs out and there is still 
text left in the line being processed, the text will be lost (i.e., the NEXT 
scanf or fscanf call will NOT find it.) 
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An alternate version of "_spr" (the low-level output formatting function) is 
given in the file FLOAT. C for use with floating point numbers; see FLOAT. C for 
details. Since "_spr" is used by "printf", this really amounts to an alternate 
version of "printf." 

Also note that temporary work space is declared within each of the high-level 
functions as a one-dimensional character array. The length limit on this array 
is presently set to 132 by the define MAXLINE statement in BDSCIO.H; if you 
intend to create longer lines through printf, fprintf, scanf, or fscanf calls, 
be SURE to raise this limit by changing the define statement. 

Note that the "gets" function (which simply buffers up a line of console input 
at a given buffer location) terminates the line with a null byte ('\0') WITHOUT 
any CR or LF. 

The conventional CP/M text format calls for each line in a file to be 
terminated by a carriage-return/linefeed combination. In the world of C 
programming, though, we like to just use a single linefeed (known as a 
"newline") to terminate lines. AND SO, the functions which deal with reading 
and writing text lines from disk files to memory and vice-versa ("fgets", 
"fputs") take special pains to convert CR-LF combinations into single '\n' 
characters when reading from disk ("fgets"), and convert '\n' characters to 
CR-LF combinations when writing TO disk ("fputs"). This allows the C programmer 
to do things in style, dealing only with a single line terminator while the 
text is in memory, while maintaining compat- ibility with the CP/M text format 
for disk files (so that, for example, a text file can be "type"d under the 
CCP.) 

Remember to put out a CPMEOF (control-Z or Oxla) byte at the end of TEXT files 
being written out to disk. 

Watch out when reading in text files using "getc" . While a text file is USUALLY 
terminated with a control-Z, it MAY NOT BE if the file ends on an even sector 
boundary (although respectable editors will now usually make sure the control-Z 
is always there.) This means that there are two possible return values from 
"getc" which can signal an End-of file: CPMEOF (Oxla) or ERROR (-1, or 255 if 
you assign it to a char variable) should the CPMEOF be missing. 

Since the "_spr" function is used to form the output string, and then "puts" is 
used to actually print it out, care must be taken to avoid generating null 
(zero) bytes in the output, since . such a byte will terminate printing of the 
string by puts. Thus, a statmeht such as: 

printf ("%c foo",'\0 , ) ; 

would not actually print anything at all. 

The "%s" termination character has been changed from "any white space" to the 
character following the "%s" specification in the format string. That is, the 
call 

sscanf( string, "%s:", &str); 

would ignore leading white space (as is the case with all format conversions), 
and then read in ALL subsequent text (including newlines) into the buffer "str" 
until a COLON or null byte is encountered. 

fgets is a little tricky due to the CP/M convention of having a carriage-return 
AND a linefeed character at the end of every text line. In order to make text 
easier to deal with from C programs, this function (fgets) automatically strips 
off the CR from any CR-LF combinations that come in from the file. Any CR 
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characters not immediately followed by a LF are left intact. The LF is included 
as part of the string, and is followed by a null byte. There is no limit to 
how long a line can be here; care should be taken to make sure the string 
pointer passed to fgets points to an area large enough to accept the largest 
expected line length (a line must be terminated by a newline (LF) character 
before it is considered terminated). 

The value NULL, NOT EOF, is returned on end-of-file, whether it be a physical 
end-of-file (attempting to read past last sector of the file) OR a logical 
end-of-file (encountered a control-Z.) 

12. The "fputs" function writes a string out to a buffered output file. The '\n' 
character is expanded into a CR-LF combination, in keeping with the CP/M 
convention. If a null ('\0') byte is encountered before a newline is 
encountered, then there will be NO automatic termination character appended to 
the line, thus allowing partial lines to be written. 

L3. When managing overlays, the "swapin" function may be used by the root segment 
to swap in overlay code segments from disk. The provided version does NOT 
check to make sure that the code yanked in doesn't overlap some data areas that 
may lie above the swapping area in memory. 

L4. The storage allocation routines were taken from chapter 8 of K&R, but 
simplified to ignore the storage allignment problem and not bother with the 
"morecore" hack (a call to "sbrk" under CP/M is a relatively CHEAP operation, 
and can be done on every call to "alloc" without degrading efficiency.) Note 
that compilation of "alloc" and "free" is disabled until the " define ALLOC_ON 
1" statement is un-commented in the header file ("BDSCIO .H") . This is done so 
that the external storage required by alloc and free isn't declared unless the 
user actually needs the alloc and free functions. 

L5. The random-record file I/O functions are a direct interface to the 
random-record BDOS functions provided by CP/M versions 2.0 and above, but not 
available for pre-2.0 CP/M systems. Because of the non-portability of these 
functions, they have not been heavily advertised in the BDS C User's Guide 
(i.e., they are not mentioned at all). The "rread", "rwrite", "rseek" and 
"rtell" functions work just like the functions "read", "write", "seek" and 
"tell", respectively, except that they do things via the random-record fields 
of the file's FCB. The "rsrec" and "rcfsiz" function simply take a file 
descriptor of an open file and perform their namesake BDOS operation on the 
given file, but in addition they* also return the value computed. Thus, "rcfsiz" 
may be used to quickly compute the size of a file under CP/M 2.x. 

6. The "execv" function no longer prints out "Broken Pipe" upon error; instead, 
it has the more conventional behavior of returning -1 (ERROR) and letting the 
user perform diagnostics. 

.7. "fabort" should not be used under systems like MPM-II in which all files MUST 
be closed, whether they are open for input or output, in order not to run out 
of file descriptors and hang the system. 

8. New for vl.46 (see the vl.46 documentation addenda sheet for details.) 

9. Modified for vl.46 to detect when "NO BOOT" has been invoked on the currently 
executing program, and return an adjusted value for the end of available 
user-memory. 

:0. When the DIO package is linked in to a program, alternate versions of "getchar" 
and "putchar", whose sources are in DIO.C, get used. 



JDS C Library Summary, vl.46 



BDS C User's Guide Addenda 
vl.46 Edition — March, 1982 

Leor Zolman 
BD Software 
33 Lothrop st. 
Brighton, Massachusetts 02135 



There have been several new sets of features added to BDS C vl.46. The new 
matures fall into three catagories: preprocessor enhancement, CP/M-specific compiler 
srformance enhancement by selective overwriting of the CCP (Console Command 
rocessor), and new utility programs (including CASM.C, which provides for the 
reation of CRL-format object files out of assembly language source files WITHOUT the 
sed for MAC.COM and the old CMAC.LIB macro package). 

he preprocessor enhancements are as follows: 

Parameterized ^defines are now supported. This allows a macro in the form of a 
function call to be expanded (before compilation) into an arbitrary string, with 
the original parameters substituted into the string. For example, the sequence 

#define foo(x,y) x * 3 + y 



z = foo(bar,zot()); 
results in the final line actually reading: 
z = bar * 3 + zot() ; 

).5 One feature of "#define" substitution has been slightly changed: when a 
symbolic constant appears in the definition of ANOTHER symbolic constant, then 
the substitution of the first constant does not take place until the 
substitution of the second does. This means that in a sequence such as 

# define F00 1 

# define BAR F00+1 

the string that gets substituted for "BAR" depends upon the current definition 
of "F00"; if "F00" got re-#de fined at some point, "BAR" would change 
accordingly. Given the above example, in past versions of BDS C "BAR" became 
"1+1" at its definition point and would not have changed even if "F00" were 
re-#defined, unless "BAR" was also re-#defined after "F00". 

1. The 

#if <expr> 

conditional compilation directive is now supported, but only with a special 

1 
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limited syntax for the expression argument, defined as follows: 

<expr> := <expr2> or 

<expr2> && <expr> or 
<expr2> | | <expr> 

<expr2> := <constant> or 

!<expr2> or 

(<expr>) 

The <constant> may be a symbolic constant, but is treated as a logical value 
always. . .i .e, is false and any non-zero value is true (1). This allows users 
to write system-dependent conditional expressions without having to resort to 
#ifdef/#ifndef and commenting/un-commenting //define statements to yield the 
desired conditions. ~ 

Nesting of conditional compilation directives is now allowed, and incorrect 
nesting attempts will now draw an appropriate error instead of doing random 
things to the source text* Note that each and every //else directive MUST be 
followed by a matching #endif (unlike C's control structure syntax, in which an 
if... else chain may be extended as long as desired.) 



.'he following enhancements to the vl.46 compiler and linker affect the USAGE of the 
compiler, not the C language syntax it accepts: 

Ln the past, the compiler and linker have performe-d a CP/M warm-boot after every 
;ompilation had either been completed or aborted due to an error. For vl.46, a 
^arm-boot will only take place when the memory occupied by the Console Command 
Processor (CCP) is actually needed for the task. Since there is usually plenty of 
nemory left over after a compilation or linkage, I decided to eliminate the pain of 
laving to wait for the system to re-boot after each and every usage of the compiler 
:>r linker. 

)n certain "fake" CP/M systems (I believe the CB0M1X CP/M emulator is one such case), 
the non-warm-booting return to the CCP does not work correctly, probably because the 
system does not pass a valid stack pointer to transient commands. The symptom is 
crazy behavior after CC1, CC2 or CLINK complete execution; the output files will have 
been written OK, but attempting to return to the system via the passed SP bombs the 
system. To correct this problem, it is necessary to make a patch to each of the three 
command files forcing them to re-boot when finished. The patches are as follows: 

file address old data new data 



CC1.COM 03AD 2A C6 03 C3 00 00 

CC2.COM 0239 2A 0A 01 C3 00 00 

CLINK.COM 0F39 2A 73 13 C3 00 00 

One feature of BDS C in the past has been that it automatically aborted any pending 

"SUBMIT" file after compilation when an error had been detected during the 

compilation. This had required the compiler to seek to the directory track on disk 
and erase "$$$.SUB" before re-booting, but the extra time thus spent was negligable 
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since a seek to the low tracks was coming up soon anyway in order to do the 
warm-boot. Now, since a warm-boot isn't standard anymore, and the compiler is often 
used without being in a "submit" file, the compiler no longer AUTOMATICALLY aborts 
"submit" files following an error. The feature IS availalable, though, through the 
new "-x" option to CC1. If "-x" is given on the CC1 command line, then "submit" files 
will be aborted following an error. Any time CC1 is used in a "submit" file, "-x" 
should appear on the command line in the "submit" file. If CC1 is used stand-alone, 
then "-x" should not be used (it would just cause some needless disk activity upon 
error.) MAKE A NOTE OF THE "-X" OPTION UNDER THE CC1 OPTIONS SECTIONS OF THE BDS C 
USER'S GUIDE. Since CLINK is not aborted very often, it has not been given a "-x" 
option and (as in previous versions) will always abort pending "submit" files when 
prematurely terminated. 

Note that both the compiler and linker now send a bell character (control-G) to the 
user console after completing a task in which one or more errors have occurred. This 
is to alert the user in the case of a premature completion and return to command 
level (as when a fatal error is detected by the compiler), since audible warm-boots 
no longer serve to notify the user of compiler termination. 

On some interrupt-driven systems, type-ahead during operation of CC1, CC2 or CLINK 
does not work because each of these commands look at the console input to see if a 
control-C has been typed, in order to determine if the user wants to abort the 
comand. If any character other than a control-C is detected, that character is thrown 
away because there is not way to push it back under CP/M. If you wish to disable the 
control-C-polling feature of the BDS C commands, so that the console input is never 
sampled and type-ahead works correctly, make the following patches to the commands: 

file address old data new data 



CC1.COM 0995 E5 C9 

CC2.COM 04A6 E5 C9 

CLINK.COM 061C F5 C9 

Note that after these patches are made, typing control-C will only abort a CC1, CC2 

or CLINK invokation if provision is made in your interrupt-driven BIOS for 
general- pur pose program interruption by control-C. 

**************************** 



The major new utility program included with vl.46 is CASM.C, an 
assembly-language-to-CRL conversion preprocessor. CASM takes a specially-formatted 
assembly lanaguage source file having extension ".CSM" as input, and puts out an 
".ASM" file which may then be assembled using the standard CP/M assembler (ASM.COM), 
to eventually produce a CRL-format object file. Note that sources to the 
assembly- language portion of the BDS C library are now provided as ".CSM" files 
instead of ".ASM" files, and a "submit" file named "CASM. SUB" has been provided to 
automate the entire process of "CSM"-to-"CRL" conversion. A separate document 
detailing the operation of CASM is included with the BDS C vl.46 package. 

A new wild-card expansion utility, named WILDEXP.C, ^allows ambiguous file names to be 
specified on the command line to C-generated programs; then by a simple function 
call, the ambiguous references are expanded to include all filenames on the current 
disk that match the specification. Exceptions may also be specified. 
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A new utility named NOBOOT.C is also included: when N0B0OT.COM is invoked upon a COM 
file produced by the C compiler, it will make some magic changes so that the COM file 
no longer performs a warm-boot after completing execution. The changes involve 
forcing the run-time stack to begin BELOW the CCP, and having the program save the 
system stack pointer passed to it by CP/M so that the SP may be restored after 
execution and control can pass directly back to the CCP. NO BOOT should be used ONLY 
with programs linked using the standard, supplied form of the run-time package 
(C.CCC). Note that the "topofmem" library function has been modified to recognize 
when N0B00T is in effect at run-time, and should return the correct value for the end 
of available user memory in all cases. 

**************************** 



The following bugs have been detected and corrected for BDS C vl.46: 

1. CC1 had crashed when an "//include" file was not terminated with a 
carriage-re turn/ line feed sequence. 

2. CLINK no longer complains about not being able to find "DEFF3.CRL" when there 
are undefined function references in a linkage; if DEFF3.CRL does exist, it will 
be searched, but if it does not exist, that fact will no longer draw an error. 

3. Literal strings having continuation lines might have confused the CC1 
preprocessor in some versions, to the effect that a "//defined" symbol name that 
happened to match a character sequence within the continuation line of the 
string was incorrectly substituted for by the preprocessor, and such a symbol ( 
appearing AFTER the end of the string was NOT "substituted for. 

4. In the DIO package, the variable "c" in the "getchar" function was incorrectly 
declared as a "char" instead of an "int"; this caused a physical EOF to be 
returned as the value 255 instead of -1. Note that this problem only appeared 
when the text file was not terminated by a CPMEOF (control-Z) character. 

5. Another DIO-related bug: when text containing both carriage-returns and 
linefeeds was fed to the DIO "putchar" function, an extra linefeed character was 
appended to each line and resulted in an extra blank line between each actual 
line of the output file. This has been fixed by building some state information 
into the DIO version of "putchar" so that the redundant linefeeds are not 
generated. 

6. CLINK now warns the user when the address of the end of the external data area 
falls above the effective "top of memory" address (and thus not leaving any room 
for the run-time stack) to prevent hair-pulling confusion if such a condition is 
not noticed by the user. If you are generating special- purpose code in which 
you purposely tell the linker that the top of memory is below the external area, 
then just ignore the error message. 

7. The "execl" function had two bugs which have been corrected: it had bombed if an 
attempt was made to pass more than six parameters, and it had not detected when 
the total size of supplied parameters exceeded the amount of space available for 
that text during the chaining operation (about 83 characters). Now any number of 
parameters are handled correctly, and a text overflow will cause "execl" to ^ 
print a special message to that effect and also return a value of ERROR (-1) to 
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the calling routine. 

8. The "gets" library function has been modified to use the stack during its BDOS 
call to get a line of text, and then copy the result into the supplied buffer 
area. This means that the buffer area passed to "gets" need no longer be 2 bytes 
longer than the longest expected string; but, "gets" still does not know how 
long the buffer you give it really is and you must make sure to supply a large 
enough buffer (when "gets" calls BDOS function 10, it supplies the BDOS with a 
135-byte buffer on the stack, and as much of this as is filled up is copied to 
the user-supplied buffer upon return from the BDOS call). 

A new alternative to "gets" has been supplied, called "getline", which works 
just like the "getline" function shown in Kernighan & Ritchie. The format is: 

int getline( strbuf, maxlen) 
char *strbuf; 
int maxlen; 

"Getline" collects a line of text from the user, where the maximum allowed 
length of the line is "maxlen" characters (where "maxlen" is supplied as a 
parameter). The return value is the length of the entered line. Since "getline" 
also uses BDOS function 10 to collect the line, a call such as 
"getline(str, 135);" would work the same as "gets( str) ;". Use "getline" either to 
limit the line length to some small number, or to allow longer lines (up to 255 
characters) than the maximum of 135 that "gets" allows. 

Note that both "gets" and "getline" will return immediatly if the number of 
characters typed reaches the maximum allowed (135 for "gets" or 'maxlen' for 
"getline"), even if no newline (carriage-return in this case) is typed by the 
user. This is due to the behavior of the BDOS, and there aint' nuthin to be done 
about it short of writing an entire "gets" from scratch in terms of low-level 
character I/O, and that just isn't worth the trouble. 
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are the bug fixes and extensions for BDS C version 1.45. 
: If you are running under MP/M II, be sure to see item 10 below! 



Expressions of the form 

! (expr | | expr ) 
or !(e.xpr && expr) 

may not have worked correctly when a VALUE was required for the expression; i.e., when 
used in some way other than in a flow control test. For example, 

x = !(a Mb); 
might have failed, but 

if (!(a II b)) return 7; 
would have worked, since the expression was used for flow control. 

Declarations of pointer-to-function variables for functions returning a CHARACTER 
value caused only one byte of storage to be reserved for the pointer, instead of two 
bytes (all pointers-to-f unctions require two bytes of storage, by virtue of being 
pointers). For example, in the sequence: 

char cl, (*ptrfn)(), c2; 

• * • 

ptrfn = &getc; 

the assignment to x ptrfn' would have incorrectly overwritten the x c2' character 
variable, since only one byte would have been reserved on the stack for the ^ptrfn' 
variable while the assignment operation would have assumed there were two bytes 
reserved. 



A bug in the ternary operator evaluator (?: expressions) caused the high-order byte of 
a 16-bit result to be incorrectly zeroed in the following situation: given a ternary 
expression of the form 

el ? e2 : e3 
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iere x e2' evaluated to a 16-bit value (int, unsigned or pointer) and *e3' evaluated/ 
5 a character value (type char only), the entire expression was treated as having V 
/pe char... so if x el' was true and N e2' was bigger than 255, then the value of the 
repression ended up as only the low-order byte of the value of x e2'. For version 1.45, 
lenever x e2' and x e3' do not BOTH evaluate to character values the type of the 
derail expression is guaranteed not to be char. 

sequence of two M' (logical x not') operators in a row did not always produce the 
orrect result in an expression. For example, 

x = !!n; /* convert n to a logical (0 or 1) value */ 

ight have produced the wrong result (0 instead of 1, or vice-versa). 

stack-handling bug in CC2 caused problems at run time when a sufficiently complex 
Lib-expression appeared in any but the final position of an expression involving the 
omma operator (","). For example, the following statement would not have worked 
orrectly: 

for (i = 0; i < 10; x += y, i++) ... 



CI has not been recognizing illegal octal character constants as such; digits such 
s x 8' and x 9' within an octal constant will now draw an error in cases where they ( 
ould have been ignored before. Also, certain other forms of illegal constants (aside 
rom character constants) are now better diagnosed than before. 

found one more case where an internal table overflow during code generation was not 
etected, causing the final command file to bomb as soon as it was executed (either by 
rashing the machine or immediately re-booting.) This occurred when a single large 
unction containing many string constants was compiled. All fixed now. 

n extension to the linker: CLINK now recognizes "DEFF3.CRL" as an automatic library 
ile, similar to DEFF.CRL and DEFF2.CRL. Note that there is NO DEFF3.CRL file included 
ith the BDS C package; this feature has been added to allow you to fit more custom 
unctions into your library than just what fits in DEFF.CRL and DEFF2.CRL (which are 
etting rather full.) 

lso, CLINK will now search ALL default library files (DEFF.CRL, DEFF2.CRL and 
EFF3.CRL [if it exists]) when a carriage-return is typed in interactive mode, 
reviously, only the file DEFF.CRL was searched in response to carriage-return. 

t has been brought to my attention that the "Q-CR sequence required by CLINK in 
nteractive mode (to abort the linkage in progress) cannot be typed in under MP/M 
ys terns, since ~Q is used to detach a process. If you are running MP/M, then just type 
ontrol-C instead of ~Q-CR; this will also work for CP/M sys terns .. .the only difference 
s that when "Q-CR is used, then any currently active "submit file" processing is ( 
utomatically aborted by CLINK before returning to command level, as a convenience (I 
ssume that if you abort the linkage, you don't want to continue with your submit 
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file...)* Under MP/M, you'll have to type characters quickly at the keyboard (after 
~C-ing CLINK) to abort any pending submit file activity. 

A slight bug in CLIB.COM (The C Library manager program) made it hard to exit CLIB 
from within a submit file (assuming XSUB is in use). The problem was that CLIB 
requires a confirmation character, x y', to be typed after the x quit' command is given. 
CLIB was getting the confirmation character by doing a single direct BDOS console 
input call, which required the user to manually type in the letter before any pending 
submit file processing could continue. This has been fixed by having CLIB get an 
entire line of input (using BDOS call 10) when seeking a confirmation; now the x y' 
may be inserted into submit files. Note that the x quit' command and the x y' 
confirmation must be placed on separate consecutive lines in the submit file. If not 
using a submit file, the only difference is that now a carriage-return is required 
after typing the x y'. 

Another minor problem with CLIB: function names longer than 8 characters were not 
being truncated when entered for operations such as renaming, resulting in too-long 
CRL file directory entries. All names are now properly limited to 8 characters. 

3. A problem with file I/O under MP/M Version II has come up: The run-time package 
routine "vclose" , called by the library function "close" whenever a file needs to be 
closed, has been optimizing for files open only for reading by NOT actually performing 
a "close" operation through the BDOS. This worked fine under CP/M, because CP/M didn't 
care whether or not a file that has had no changes made to it was ever closed; MP/M 
II, on the other hand, DOES seem to want such files to be explicitly closed. ..so by 
running many programs that didn't close their Read-only files, BDS C programs 
eventually caused MP/M to not allow any more files to be opened. 

This problem has been fixed by adding a conditional assembly symbol, called "MPM2", to 
the CCC.ASM source file. If you are running under MP/M II, you should set the "MPM2" 
equate to true (1) and reassemble CCC.ASM, yielding a new C.CCC after loading and 
renaming (you should only need ASM.COM for this, although MAC.COM works also). The 
change does NOT affect the size of C.CCC, so the libraries do not have to be 
reassembled as is usually the case when the run-time package is customized. The change 
simply causes a single conditional jump to be turned into three nop's, so that ALL 
files are always closed, instead of only the ones open for writing. My apologies to 
MP/M users who may have had confusing troubles because of this bug. 

1. A bug was found in the x _scn' library function (affecting 'scanf ): when a lone 
carriage-return (newline) was typed in response to a "%s" format conversion, the 
format conversion was totally ignored. This caused the target string to remain 
unchanged from its previous contents, instead of correctly having a null string 
(consisting of a single zero byte) assigned to it. 

2. A bug was found in the x _spr' library function (affecting x printf, x sprintf, and 
"fprintf): The default field width value was 1, causing a null string to be printed 
as a single space when the standard "%s" format conversion was used. For example, the 
statement: 

printf("Here is a null string: \"%s \"\n","") ; 
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would have produced the output: 

Here is a null string: " " 
instead of: 

Here is a null string: "" 

The default field width value has been changed to 0, so null strings will now print 
correctly. An explicit field width may always be given in any format conversion, of 
course. 

When the library function "sprintf" (formatted output directly into a memory buffer) 
is used, a null byte is appended onto the end of the output text. I'm not absolutely 
sure whether or not this is a "desired" characteristic; at least one user has 
complained about it, but it turns out that "sprintf" on the large-scale Unix system I 
have access to does the same thing and I can think of applications where the trailing 
null is useful. So, the null stays in. 

In several library functions, as well as at one point in the run-time package, calls 
were made to BDOS function number 11 (interrogate console status) followed by an "ani 
1" instruction to test bit of the value returned by BDOS. I've been told that on 
some systems, testing bit is not sufficient since sometimes values other than and 
1 (or and 255) are returned. SO, all such sequences have been changed to do an "ora 
a" instead of an "ani 1", so that a return value of exactly OOh is interpreted as "no 
character ready" and any other value is interpreted as "yes, there is a character 
ready". The library functions that were modified this way are: x kbhit', x putchar', 
x srandl', x nrand', x sleep' and x pause'. The sequence to clear console status in the 
run-time package (CCC.ASM), near the label "init:", has likewise been changed (but a 
"nop" instruction was added to keep all addresses consistent with earlier versions of 
the run-time package.) 

When customizing the run-time package (CCC.ASM) with the "cpra" symbol equated to zero, 
several symbols (named "SETNM" and "SETNM3", at the routine labeled "PATCHNM") were 
undefined; this has been fixed by adding some conditional assembly directives to 
insure that the labels in question are not referenced under non-"cpra" implementations, 
while the total code size remains constant so that the addresses of later run-time 
package utility subroutines stay exactly the same for all implementations. 

A problem with the "bdos" library function has come up that is rather tricky, since it 
is system-dependent: A program that runs correctly under a normal Digital Research 
CP/M system might NOT run under MP/M or SDOS (or who knows how many other systems) if 
the "bdos" function is used. A typical symptom of this problem is that upon character 
output, a character on the keyboard needs to be hit once in order to make each 
character of output appear. 

To understand the problem, we must first understand exactly how the CPU registers are 
supposed to be set after an operating system BDOS call. Normal CP/M behavior (which 
the C library function "bdos" had always assumed) is for registers A and L to contain 
the low-order byte of the return value, and for registers B and H to contain the high 
order byte of a return value (which is zero if the return value is only one byte). The 
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CP/M interface guide explicitly states that "A == L and B == H upon return in all 
cases", and I figured that just in case CP/M 1.4 or some other system didn't put the 
values in H and L from B and A, I'd have the "bdos" function copy register A into 
register L and copy register B into register H, to make SURE the value is in HL (where 
the return value must always be placed by a C library function.) 

Not all systems actually FOLLOW this convention. Under MP/M, H and L always contain 
the correct value but B does not! So when B is copied into H, the wrong value results. 
So, the way to make "bdos" work under both CP/M 2.2 and MP/M was to discontinue 
copying B and A into H and L, and just assume the value will always be correctly left 
in HL by the system. This was done for vl.45, so at least CP/M and MP/M are taken care 
of , but ... 

Under SDOS (and perhaps other systems), register A is sometimes the ONLY register to 
contain a meaningful return value. For example, upon return from a function 11 call 
(interrogate console status), the B, H and L registers were all found to contain 
garbage. So if no copying is done in this case, the return value never gets from A to 
L and the result is wrong; but if B is copied into H along with A getting copied into 
L, the result is still wrong because B contains garbage. Evidently the only way to 
get function 11 to work right under SDOS is to have the "bdos" function copy register 
A into L and ZERO OUT the H register before returning. . .but then many other system 
calls which return values in H wouldn't work anymore. And that is the problem: You can 
please SOME systems ALL the time, but not ALL systems all the time with only one 
standard "bdos" function! 

The way I left "bdos" for version 1.45 was so that it works with CP/M and MP/M (i.e., 
no register copying is done at all...HL is assumed to contain the correct value). You 
might want to make a note in the User's Guide library section (page 30) to the effect 
that A and B are now ignored. This, of course, won't work in all cases under SDOS and 
perhaps other systems... in those cases, you need to either use the "call" and "calla" 
functions to perform the BDOS call, or create your own assembly-coded version(s) of 
the "bdos" function (with MAC.COM, CMAC.LIB and BDS.LIB) to perform the correct 
register manipulation sequences for your system. Note that it may take more than one 
such function to cover all possible return value register configurations. 

The "creat" library function had been creating new files and opening them for writing 
ONLY; this caused some confusion, so % creat' has been modified to open files for both 
reading AND writing following creation. PLEASE MAKE A NOTE OF THIS UNDER THE N CREAT' 
ENTRY IN THE STANDARD LIBRARY SECTION OF THE BDS C USER'S GUIDE. 

The "execv" function has been changed to return ERROR (-1) on error, instead of 
forcing an error message ("Broken pipe") to be printed to the standard error device. 
The reason I originally had it printing "Broken Pipe" was because I was too lazy to 
figure out how to fix the stack after passing all the arguments; following some 
justified bitching from Scott Layson I went in there and fixed it so it does something 
reasonable. PLEASE MAKE A NOTE OF THIS UNDER THE "EXECV ' ENTRY IN THE STANDARD 
LIBRARY SECTION OF THE BDS C USER'S GUIDE. 

The DIO (directed I/O and pipes) package contained an obscure bug: if a pipe operation 
was aborted before completion, leaving a "TEMPIN.$$$" file in the directory, then the 
next pipe operation performed had gotten its own output mixed up with the output of 
the aborted pipe.... the old output was used as input to the new next command, and the 
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new output was lost. The new DIO.C has been fixed. (Note: DIO.C has also been slightly/" 
changed to properly interact with the new version of the "execv" library function.) v 

Another change has been made to the DIO package: the "getchar" function, when used 
without input redirection to read characters directly from the console, had not 
allowed for line editing in previous versions. I.e., each character was obtained by a 
direct BDOS call and none of the special line editing characters (delete, ~R, ~U, 
etc.) were recognized. For version 1.45, an optional line buffer mechanism has been 
added to the DIO package so lines of console input can be fetched at one time by using 
the "read console buffer" BDOS call and all editing characters now function as 
expected. Operation of the package using buffered console input is still the same as 
before, except for one thing: to enter an end-of-file character (control-Z), it is now 
necessary to also type a carriage-return after the control-Z. 

To enable console input buffering when using the DIO library, it is necessary to 
un-comment a line in the DIO.H file and re-compile DIO.C. See the comments in DIO.C 
for more information. 

The special case handler for the code generator has been improved to more efficiently 
handle relational binary operations where exactly one of the operands is a constant. 
The operators affected are: "<", ">", "<=", »>=»,»==» an d "!=», for both signed and 
unsigned data types. The improvement is mainly in the speed of execution of such 
comparisons; statements such as: 

if (i < 1234) ... (" 

execute much faster. This results in speedier execution of programs such as the Seive 
of Eratosthenes benchmark in the September '81 issue of BYTE: the current version of 
BDS C, using the -e and -o compiler options with variables made external, does it in 
15.2 seconds (see SIEVE. C on the distribution disk.) 

Also, multiplication by a constant that is a low power of 2 (2,4,8,16) is now done by 
DAD H sequences instead of calls to the run-time package multiply routine [so that 
expressions such as (i * 8) and (i « 3) each compile to the same code]. 

Two new functions have been added to the standard library: 

int set jmp(buf f er) 
char buffer [JBUFSIZE]; 

longjmp(buf fer,val) 
char buffer [JBUFSIZE]; 

When "set jump" is called, the current processor state is saved in the JBUFSIZE-byte 
buffer area whose address is passed as the argument ("JBUFSIZE" is defined in 
BDSCIO.H), and a value of zero is returned. Whenever a subsequent "long jump" call is 
performed (from ANYWHERE in the current function or any lower-level function) with the 
same buffer argument, the CPU state is restored to that which it was during the 
"setjmp" call, and the program behaves as if control were just returning from the 
"setjmp" function, except that the return value this time is "val" as passed to (^ 
"longjmp". A typical use of set jmp/ long jmp is to exit up through several levels of 
function nesting without having to return through EACH level in sequence, to make sure 
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that a particular exit routine (e.g., the directed I/O "dioflush" function) is always 
performed. It is a nifty facility that should have been available long ago. THESE 
FUNCTIONS ARE NOT DOCUMENTED IN THE BDS C USER'S GUIDE; PLEASE MAKE A NOTE OF THEM IN 
THE STANDARD LIBRARY SECTION OF THE GUIDE. 

A new linker for BDS C called "L2" (a substitute for CLINK.COM) is now available from 
the BDS C User's Group. L2, written by Scott Layson (of Mark of the Unicorn) in BDS C, 
has several interesting features: 

1. L2 can link programs that are up to about 8K larger than CLINK: if there 
isn't enough room in memory to hold the entire program while building an 
image in memory, L2 performs a disk-buffering second pass. This means that 
the resulting COM files can be as large as the entire available TPA on the 
target machine. 

2. The number of functions per program is no longer limited to 255. 

3. While CLINK uses jump tables at the beginning of functions to resolve 
references to other functions, L2 totally eliminates the jump tables and 
instead generates direct external calls. This shortens programs by anywhere 
from 3% to 10%, and also speeds them up a little. 

4. Since L2 is written in C, you can customize it yourself. 

The L2 package comes with source code, a special overlay generator program and 
documentation. It is available to BDSCUG members for the nominal cost of media and 
shipping (currently $8). See the next note for information on joining the BDSCUG. 

The BDS C User's Group membership forms should now be included with the BDS C 
package. .. this makes life easier for everyone, since it is no longer necessary to 
write to the Group first just to ask for forms before being able to order library 
disks. BDS C User's Group members receive the Group newsletter approximately 6 times 
per year, and are entitled to compiler updates and library disks for low prices 
(typically $8 per disk). 
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BDS C User's Guide Addenda 
vl.44 Edition — April, 1981 

Leor Zolman 
BD Software 
33 Lothop St. 
Brighton, Massachussetts 02135 
(617) 782-0836 



Please note my NEW new address and phone number ... seme earlier versions of the new 
cumentation have said that my new city and zip code were Allston, 02134, which is where 
TOOUGHT I was. Actually, I'm in Brighton, 02135, and any mail sent me addressed to 
lston may have been returned to the sender stamped with something like "No such address 
own." Sorry about that. 

re are the bug fixes/extensions for version 1.44: 



(Applies to vl.43a only): the character sequence \\ appearing at the END of a quoted 
string caused the preprocessor in CC1 to screw up and stop stripping comments for the 
rest of the source file. For example, the statement: 

printf ( "This backslash would cause big trouble: \\"); 

would have done it. 

The "qsort" library function didn't work when the total size of the data array being 
sorted exceeded 32K bytes. This has been fixed by changed the declarations of certain 
variables in qsort from "int" to "unsigned". 

GC1, CC2, and CLINK may now .be aborted in the middle of execution by typing a 
control-C. 

A new CLINK option has been added (as if there weren't enough of them already...) The 
"-f " option, when specified immediately before the name of an extra CRL file to be 
searched, FORCES all functions in that CRL to be loaded into the current 
linkage — even if they haven't been previously referenced. This provides a simple 
solution to the backwards-reference problem; a typical case when this would be used 
ccmes up when you want to use a special version of a low-level function such as 
"putchar." If you have a complete program such as: 

main() 

{ 

printf ("this is a test\n"); f 

and would like your OWN version of putchar to be loaded from a library called, say, 
SPECIAL. CRL (which you have previously compiled), then simply saying: 
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clink test special <cr> C~ 

would NOT work, because the "putchar" function doesn't beccme "needed" until AFTER 
the library file DEFF.CRL, Which contains "printf", is searched .. .which doesn't 
happen until AFTER special is searched! So the "putchar" finally loaded would come 
from DEFF2.CRL, which is the library file automatically searched after DEFF.CRL. To 
make this do what you want, all you'd have to do now is: 

clink test -f special <cr> 

which would force everything in SPECIAL. CRL to be loaded right away, before the DEFF 
files are scanned. Then, when "printf" gets loaded from DEFF.CRL, the correct 
"putchar" function will al ready have been loaded and the one in DEFF2.CRL will be 
ignored . 

The "rename" library function had a rather serious problem: whenever executed, it 
would zero out the three bytes of code immediately after the end of the function 
(i.e., the first jump instruction of the next function in memory would get 
clobbered.) This problem was fixed by increasing the amount of storage declared in 
the "ds" at the end of "rename" from 49 bytes to 53 bytes. 

The "setfcb" function requires that the buffer allocated to hold the resulting fcb is 
AT LEAST 36 BYTES LONG! "Setfcb" zeroes out the random-record field bytes of the fcb 
just in case the CP/M 2.x random-record file I/O mechanism is later used. But whether , 
you use the random stuff or not, the fcb you allocate still has to be 36 bytes long, v 

This bug applies to vl.43 only: A character constant consisting of the double-quote 
character enclosed in single quotes ( '" * ) , when encountered by ccl , caused ccl to 
stop stripping comments while reading in the rest of the source file from disk. This 
was a bug in the vl.43 code added to allow comment delimiters within quoted strings. 

Whenever the type information for a function definition was placed on a line separate 
from the actual name of the function, then the compiler would "lose" a line of code 
and all errors found past that point in the source file would be reported with an 
incorrect line number. For example, the following kind of function definition 
would' ve caused this problem: 

char * 

foo() 

{ 

} 

A new library function, "execv", has been added to the package (source is in 
DEFF2.ASM). This function allows chaining to another CCM file with a variable number 
of command line parameters (note that "execl" requires all of the arguments to be 
explicitly passed as string pointer parameters to the function, so that one/ 
particular call can only have the number of arguments that it was written with.) Thev 
format of the "execv" function is: 
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execl ( prog , argvp ) 
char *prog f **argvp; 

where *prog' points to the name of the OCM file to be chained to, and * argvp' is an 
*argv'-like pointer to an array of pointers to text parameters. The final pointer in 
the list must be followed by a null pointer. As an example, note that the "execl" 
call 

execl ( "stat" , "badspots" , "$r/o" , 0) ; 
can be written in terms of "execv" as follows: 
char *args[3]; 

• • • 

args[0] = "badspots"; 
args[l] = "$r/o"; 
args[2] = NULL; 
execv ( " stat" , args ) ; 

Directed I/O and pipes, of sorts, are now available to BDS C programmers. The files 
DIO.C and DIO.H make up a cute little directed I/O package, allowing for directed 
input, directed output and pipes (a la Unix) on the command lines to programs 
compiled with this special I/O package. See the comments in DIO.C for complete 
details. Note that the presence of this package does NOT contradict certain comments 
made in the User's Guide about kludging advanced Unix features under CP/M; those 
comments were directed toward systems in which the I/O redirection/ generalization is 
forced upon the user, along with all the entailing overhead, when the redirection 
isn't needed or wanted for many applications. The DIO package, being written in C and 
separately compiled, lets YOU the USER decide when you want it and when you do not. 
If you don't want it, it takes up zero space; if you do, it takes up a bit of room 
and yanks in all the buffered I/O, but it DOES give you redirection and pipes! 

A "standard error" buffered I/O stream number has been added to the list of special 
devices recognized by the "putc" buffered output function. An iobuf value of 4 causes 
the character given to be written to the CP/M console output, always, while an iobuf 
value of 1 causes the character to be written to the standard output (which might be 
a file if the DIO package is being used. ) Note that 4 was used instead of the Unix 
Standard-error value of 2 because 2 had already been taken (by the CP/M LST: device.) 

String constants may now contain zero bytes within them. Previous versions have 
flagged lines such as 

foo = ''Jan\0Feb\0Mar\0Apr\0^fey\Caun\0Jul\0Aug\0Sep\0Oct\0Nov\0Dec\0 , '; 

with the error message: 

Zero bytes are not allowed within strings; to print nulls, use \200 

Note that allowing the above kind of string constant makes it easier to initialize a 
table of homogenously-sized strings; the example with the months could be part of a 
function that returns a pointer to the name of some month n, where n is a passed 
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ilue ranging frcm to 11 (or from 1 to 12, or whatever...) 
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BDS C User's Guide Addenda 
vl.43 Edition -- March, 1981 

Leor Zolnan 

BD Software (New Address!) 

33 Lothrop st. 

Brighton, Ma. 02135 

(617) 782-0836 



Before getting on with the business at hand (where I shamelessly display all the 
Drrible bugs that have plagued previous versions of the compiler), I'd like to take a 
Client to answer one of the more common questions that have been asked of me by users and 
Dtential users of BDS C. Hspe fully, this will save some of you the expense of a phone 
all (which can run pretty high when I get to rambling...) 

Q. What is the royalty arrangement for software developed using BDS C? 

A. There is NO royalty arrangment AT ALL. Both the BDS C runtime package and function 
Lbraries, in either source or object form (or both), may be freely distributed with 
annercial (or non-ccmmercial ) application programs. The reason for this policy is to 
romote the use of C for anything and everything, without wrapping up potential 
^plications in miles of red tape and ineffective security measures. Software authors: 
LEASE include the source listings to your software with your packages! I understand that 
iere are some markets where such generosity is considered suicidal, and I sympathize in 
any cases, but I also want to see BDS C selling more copies, and providing the source to 
pplications programs will encourage users to obtain- the compiler. Hopefully, some of them 
ay even BUY it. 

OK, now it's time for the bug reports. Following, in decreasing order of severity, are 
le bugs found and fixed for vl.43, and some additional notes: 



Another logical-expression-related bug caused incorrect code to be generated when a 
subexpression of a binary operation used the && or I ! operators. For example, 

if (x > (i=5 && j<7)) printf("Foobar\n"); 

might have caused a crash when executed. 

5 A bitwise or arithmetic binary operation in which the left argument was a logical 
expression of any kind and the right argument was a binary expression of higher 
precedence failed to evaluate correctly. For example, 

if (IkbhitO & a<5) printf ("foo\n"); 

didn't work. 

A missing comma, such as in the statement: 
sprintf(dest "x = %d\n", x); 



c 



went undiagnosed and caused wierd code to be generated. (The bug fixed in the last 
release had only corrected the case of a missing comma AFTER a format string 
specification, not BEFORE it. . . ) 

Tf a comment was begun on a line which contained an "#include M preprocessor directive, 
and not terminated until a later line, then CC1 became confused. 2a. Several users 
have complained about not being able to put the character sequence "/*' into a quoted 
string. This is a justifiable gripe, but I'm afraid you'll have to say things like 
"/\*" to get the same effect. The reason comment delimiters are not tolerated within 
quotes 

Mismatched curly-b?.*aces in a source file now draw a more meaningful diagnostic than 
the previous "Unexpected EOF encountered" message: a pointer is now provided to the 
line at which the badly-balanced function begins. 

When an illegal constant was encountered by 0C1 at any place where a constant is 
required, an incorrect "Unmatched left parenthesis" diagnostic was displayed with an 
impossibly large line number. (Actually, the correct line number was obtainable by 
subtracting the exact size of the text file from the given line number. Guess what I 
forgot to initialize between passes . . . ) 

When using the "-w" option with CLINK, a terminating control-Z was NOT put out to the (^ 
SYM file when the length of the SYM file worked out to be an exact multiple of 128 
bytes. This gave CLINK a headache when "-y" was used to read the SYM file back in. 

There was another bug in the "getc" library function that caused some trouble when the 
"fgets" function was used to read in lines from a text file that wasn't terminated 
with control-Z (CFMEOF). This was fixed by changing the line: 

return ERROR; 

to: 

return iobuf->_nleft++; 

Mismatched square brackets in an expression had drawn an "Unexpected EOF encoutered" 
error instead of something more meaningful. 

The word "main" is NO LONGER A KEYWORD. In previous versions, the fact that "main" was 
treated as a keyword made its use in any situation other than as the first line of a 
"main" function impossible. I.e, attempts to call "main" recursively were not accepted 
by the compiler. There is now no longer anything special about the word "main". In 
addition, previous versions had substituted an undocumented one byte code (9D hex) for 
the name "main" in CRL file directories, thereby probably causing a lot of confusion. 
This bizarre scheme is no longer used, although the linker will still recognize the (^ 
special 9D code as meaning "main" when encountered in a CRL file (of course, "MAIN" 
will now also be recognized. . . ) 
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A bug in the "-y" option handler in CLINK caused CLINK to crash when there wasn't 
enough room in the reference table to hold all the symbols being read in from a SYM 
file. Sorry about that, chief. Note, by the way, that the POSITION of "-y" on the 
command line IS VERY SIGNIFICANT. If the "-y" option appears to the right of names of 
CRL files to search, then the SYM file specified will not be used until AFTER the 
previous CRL files have already been scanned and loaded from. I.e., the "-y" option 
should appear BEFORE the names of any CRL files that contain functions that might not 
need to be loaded (due to their definition in the SYM file). A new feature of CLINK is 
that whenever a previously defined symbol is encountered in the process of loading the 
symbols frcm a SYM file, a message to that effect will be printed, allowing the user 
an opportunity to rearrange the command line so that the SYM file is read in earlier 
and seme redundancy possibly eliminated. 

An obscure feature of the "printf", "sprintf" and "fprintf" library functions, as 
described in the Kernighan & Ritchie book, is that a field-width specification value 
preceded by a '0' caused 0-fill instead of space-fill. I'd never NOTICED that before, 
until a user brought it to my attention (and conveniently provided a fix. ) Note that 
this solves a problem often encountered when printing hex values. New, the following 
"printf" call: 

printf ("%4x; %04x\n",8,8); 

will produce the output: 

8; 0008 

The body of a function definition now MUST be enclosed in curly-braces. Formerly, the 
following sort of thing was tolerated as a function definition, but no more: 

putchar (c) bdos (4, c) ; 

A bug in the CMAC.LIB macro package had NOT allowed lines such as: 

exrel <lxi h, >, putchar 
while the following kind of lines were properly handled: 

exrel call, putchar 

A new lew-level character I/O function package, named CIO.C, has been added for 
greater flexibility in console interaction, especially for game-type applications. 
Note, however, that code generated using this facility is NON-PORTABLE from one system 
to another unless the "other" system is also equipped with a C compiler. If you HAVE 
to, go ahead and use it, but please resist the temptation to give out a copy of the 
compiler to your friends along with your source code. 

Quoted strings containing an open-cemment delimiter sequence ( V * ' ) ^<3 caused CC1 to 
think an actual comment was intended. I.e, the statement 

printf ("this is an open-cemment sequence: /* \n"); 

3 
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would have drawn a "string too long..." error. Not any more. ( 

The handling of string constants by the code generator has been improved. Now, instead 
of putting the text right where it is used and generating a jump around it, the 
compiler accumulates up to 50 text strings in a function and places them all at the 
end of the function. If more than 50 strings appear, then after the 50th it goes back 
to doing it the old way for the remainder of the function (there's only so much table 
space worth allocating to hacks like this.) 

Speaking of hacks, here's one that'll get you either excited or sick: You say you 
need seme "static" variables? Consider the following method of simulating a "static 
array of characters": 

char * static; 

static = "0123456789"; 

The result is that the variable "static" may be used just like a static array of ten 
characters. If declared as an "int" instead of a "char", it could be used as an array 
of five integer variables (or ten, if you make the quoted string twice as long...). 
Steve Ward makes use of this technique in his CIO.C library. Kludgey, yes, but it gets 
the job done and it ' s even portable . . . 



C 



The default GC1 symbol table size for modified versions of the compiler (vl.43T) has 
been upped from 6K to 7K. The "-r" option still lets you explicitly set the table 
allocation, if you want to. 
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***************************************************************** 

* * 

* The New Dynamic Overlay Scheme for BDS C vl .4 * 

* August, 1980 * 

* * 

***************************************************************** 



order to allow C programs to be longer than physical memory, without resorting to "exec" or 

cl" (which may indeed get the job done, but resemble "chain" operations more than true 

entation tools), a new set of capabilities has been built into the CLINK program. 
ally, the run-time environment of an executing C program looks like this: 

lew memory: base+lOOh: C.CCC run-time utility package (csiz bytes) 

ram+csiz: start of program code 
. . . (program code) . . . 
xxxx-1: end of program code 

xxxx: external variable area (y bytes long) 
. . . (external data) . . . 

xxxx+y: free memory, 

available for 

storage 

allocation 

1111'. as low as the machine stack ever gets 
local data, function parameters, 
machine stack: intermediate expression results, 

etc. etc. 
high memory: bdos: machine stack top (grows down) 

: that "xxxx" is the first location following the program code and "y" is the amount of 
>ry needed for external variables. 



mplement overlays, the first thing necessary is to decide just where the swapped-in code is 
reside. Earlier versions of BDS C had local data frames growing up from low memory , 
ting from where the externals ended, making it difficult to determine the lowest memory 
tion safe to swap into. The scheme suggested then for handling overlays was to leave 
Icient rocm between the end of the root segment code (the root segment contains the "main" 
tion and run- time package; it loads at the start of the TPA, always remains in memory, and 
rols the top level of overlay swapping) and start of the external data area to acccrmiodate 
largest possible swapped-in segment combination. This is still a viable scheme for version 
here is the modified memory map, accommodating this first method of handling overlays: 
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low memory: base+lOOh: 
ram+csiz : 

zzzz-1 ! 

zzzz: 
xxxx-1 : 

xxxx: 

xxxx+y: 



C.CCC run-time utility package (csiz bytes) 
start of root segment code 
... (root segment code) ... 
end of root segment code 

start of overlay area 
. . . (overlay area) . . . 
end of overlay area 

external variable area (y bytes long) 
... ( external data ) ... 

free memory, 

available for 

storage 

allocation 
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?-?99 



machine stack: 



high memory: 



as low as the machine stack ever gets 
local data, function parameters, 
intermediate expression results, 
etc . etc . 
bdos: machine stack top (grows down) 



that "zzzz" is where segments get swapped in, guaranteed that the longest segment doesn't 
i "xxxx". 

version 1.4, it is just as feasible to put the overlay area AFTER the externals. TK 
ry map for this alternative configuration wDuld be: ' ^ 



low memory: base+lOOh 
ram+csiz 

xxxx-1 

xxxx 

xxxx+y-1 

xxxx+y 

xxxx+y+ssss-1 

xxxx+y+ssss 

???? 

machine stack 

high memory: bdos 



C.CCC run-time utility package (csiz bytes) 
start of root segment code 
... (root segment code) ... 
end of root segment code 

external variable area (y bytes long) 
. . . (external data) . . . 
end of external data area 

start of overlay area (ssss bytes long) 
. . . (overlay area) . . . 
end of overlay area 

<unused memory> 

as low as the machine stack ever gets 
local data, function parameters, 
intermediate expression results, 
etc . etc . 

machine stack top (grows down) 



>oj plan to use the storage allocation functions (alloc, free, sbrk, rsvstk) in 



yq L. 
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, then this second scheme would require you to call the "sbrk" function with argument 
(the size of the overlay area) since, by default, storage allocation always begins with 
a immediately following the end of the externals. For the remainder of this document, I 
sume the FIRST of the above two schemes is being used. 

h the generalities out of the way, let me say something about just how to create "root" 
s and "swappable" segments with BDS C. First of all, we would like all functions defined 
the root segment to be accessible by the swapped segment(s) . . .this is accomplished by 
CLINK to write out a symbol table file (containing all function addresses) to disk when 
t segment is linked. The -w option to CLINK will do the trick; this symbol table will be 
ter when linking the swappable segments. 

inking the root segment, use the -e option to set the external data area location; keep 
I that there must be enough rocm below the externals to hold the largest swapped-in 
. at run time (I'm using the term "below" in the sense that low memory is "below" high 
graphically, in the preceding memory maps, "below" means toward the top of the page.) 
-e option is emitted, CLINK will assume the external data starts immediately after the 
the root segment code; this is OK only if you're using the SECOND scheme. 

the code of the root segment, then, a swappable segment is loaded into memory from disk 
.ng: 

swapin(name,addr) ; /* read in a segment, .don't run it */ 

"addr" is the location following the last byte of root segment code (for the first 
,) You can find this value by linking the root once without giving the -e option and 
j the -s statistics written to the console after the linkage. To actually execute the 
:, you have to call it indirectly using a pointer- to- function variable. 

5 an example. We'll declare a pointer-to- function variable called "ptrfn", swap in a 
: named "foo" at location 3000h, and call the segment. The sequence would look like this: 

int (*ptrfn)(); /* can be whatever type you like */ 
ptrfn = 0x3000; 

• * • 

if (swapin( "foo", 0x3000) != -1) /* check for load error */ 

(*ptrfn) (args. . .) ; /* if none, call the segment */ 

rapin" routine returns -1 when a load error occurs. Note that the swapped-in code might 
:urn any value, but the pointer-to- function must be declared with SOME kind of type. Use 
If nothing else comes to mind. When a segment is invoked, as above, control passes to the 
:'s "main" function. There is no reason at all to require args to be of the "argc" and 
form; there is nothing special about a "main" function other than the property it has of 
j called first. The "main" function within the swapped-in segment is the ONLY allowed 
point for the segment. 

Le "swapin" function is given in STDLIB2.C. It can be made shorter by skipping all the 
testing, or can be expanded to detect an attempted load over the external data area by 
lng the last address loaded with the contents of location ram+115h. . .if you've never done 
v-level hackery, you get the value of the 16-bit address at location ram+115h by using 
ction on a pointer-to- integer (or -unsigned. ) Note that location RAM+115h ALWAYS contains 
3ress of the base of the external data area. 

know how to do everything except actually create a swappable segment. 
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swappable segment is basically just a normal C program, having a "main" function just 
e root segment, except that the C.OCC run-time utility package is NOT tacked on to the 
f a swappable segment (the C.CCC in the root segment will be shared by everyone.) 17' 
ifference between a swappable segment and the root segment is the load address; whi^ 
t segment always loads at ram+lOOh (where "ram" is for standard CP/M, or 4200h for the 
ed" CP/M) , a swappable segment may be made to load anywhere. Once you've compiled the 
le segment, you give a special form of the CLINK command to link it: 

A>clink segmentname -v -1 xxxx -y symbolfile [-s ...] <cr> 

segmentname" is the name of the CRL file containing the segment, "-v" indicates to CLINK 
swappable segment is to be created (so that C.CCC is not attached), and "-1 xxxx" 
ell followed by a hex address) indicates the load address for the segment. 

ou'll probably want to yank in the symbol file created by the linkage of the root 

, use the -y option to do so. If you don't, then CLINK will yank in fresh copies of 

»ns like "PRINTF" and "POPEN", etc., even if they have already been linked into the root 

.. It would be a waste to have multiple copies of those memory hogs in there at the same 

y reading in the symbol table from the root segment, it is insured that any routines 

r linked in the root will be made available to the swapped- in segment. The root segment, 

cannot know about functions belonging to the swapped- in segment through the use of a 

table. That would require some kind of mutually referential linking system beyond the 

>f this package. 

. When linking the segment, you may specify -s to generate a stat map on the console, 
to write out an augmented symbol table containing not only the symbols read in frcm the 

igment's symbol file, but also the swappable segment's own symbols. This new symbol file 

Ti be used on another level of swapping, should that be desired. 

>: (The addresses given in this example are for a RAM at OOOOh CP/M; if you have t 
d 4200h CP/M, fudge accordingly.) 

>ay you've got a program ROOT.C, which will swap in and execute SEG1.C and then overlay 
with SEG2.C. RXIT.COM loads at lOOh and ends, say, before 3000h. We'll load in the 
s at 3000h, and set the base of the external data area to 5000h (this assumes neither 
. is longer than 2000h.) 

ikage of ROOT would be: 

A>clink root -e 5000 -w -s <cr> 

slls CLINK that ROOT.COM is to be a root segment (no "-v" option used), the externals 
it 5000h, a symbol file called R00T.SYM is to be written, and a statistics summary is to 
ited to the console. 



ikage of each segment would appear as: 
A>clink segl -v -1 3000 -y root -s -o segl. <cr> 



mand line tells CLINK that SEG1.COM is to be a swappable segment (the "-v" option) to 
it location 3000h, the symbol file named R00T.SYM should be scanned for pre-defined 
>n addresses, a statistics summary should be printed after the linkage, and the object 
> to be written out as SEG1 (as opposed to SEG1.CCM, to avoid accidentally invoking it as 
command . ) , 



)verlays, August 1980 
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The file I/O library functions provided with BDS C fall into two catagories : "raw" 
and "buffered." The raw file functions, typically coded in assembly language for best 
performance, are essentially a CP/M-oriented low-level interface where data transfers 
always occur in multiples of full CP/M logical sector (128 byte) quantities. The 
buffered functions (written in C) provide a byte-oriented, sequential file I/O system 
geared especially for "f ilter"-type applications; buffering allows you to read and 
write data in whatever sized quantities are most convenient while invisible mechanisms 
worry about things like sector buffering and actual disk I/O; thus the buffered I/O 
functions are usually more convenient to deal with than the raw functions, but they 
generate a lot of overhead by being slow and hogging up quite a bit of memory for code 
and buffer space. 

Since buffered I/O is composed of raw I/O functions plus some extra code, I'll first 
present the raw I/O in detail, and then go onto the buffered functions. 

The raw functions are characterized by their concern with "file descriptors". A file 
descriptor (fd) is a small integer value that becomes associated, with a currently 
active file. This fd is always obtained by calling either the "open" or "creat" 
functions; their usage is: 

fd = open (filename, mode) ; /* "'filename' can be either a literal */ 

/* string or any expression that */ 
fd = creat ( filename) ; /* evaluates to a character pointer */ 

The former is used to open an already existing file (usually, a file that has some 
data in it) for reading or writing or both, and the latter is used to create a brand 
new file and open it for writing. In both cases, the fd is the value returned by the 
call. If some kind of error occurs and the specified file cannot be opened or created, 
a value of ERROR (-1) is returned instead. For example, if "open" cannot find the file 
on disk whose name is pointed to by the first argument, ERROR will be returned. 

All other raw functions require an fd to specify the file to be operated on (except 
"unlink" and "rename", which take filename pointers). The "read" and "write" 
functions are used to transfer data to and from disk. Their typical usage is: 

i = read(fd, buffer, nsects) ; /* "fd' must have been obtained by */ 
j = write(fd2, buffer2, nsects2); /* a previous call to "open" */ 

The first call would try to read, into memory at "buffer', "nsects' sectors from the 
file whose "fd' is specified. The second call would try to write "nsects2' sectors 
from memory at "buffer2' to the disk file whose fd is "fd2'. Unless an error occurs 
(such as when an illegal fd is given or an attempt is made to read past the end of a 
file), the above functions cause an immediate disk transfer to happen. This is one of 
the main differences between raw and buffered I/O: raw functions always cause 
immediate disk activity, as long as what they are asked to do is possible, while 
buffered functions only go to disk when a buffer fills up (when writing) or becomes 
exhausted (when reading.) 
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For each file opened under raw I/O, there exists an invisible "r/w pointer" to keep 
track of the next sector to be written or read. Immediately after a file is opened, 
:he r/w pointer always starts at sector (the first sector) of the file; it is bumped 
after "read" and "write" calls by the number of successfully transfered sectors, so 
that (by default) the next transfer happens sequentially. One nice extension of the 
3DS C raw I/O functions over their REALLY-raw CP/M equivalents is the elimination of 
the concept of "extents"; Instead of "extent numbers" and "sector numbers within the 
turrent extent" to be reckoned with for every file, there is only a single 16-bit r/w 
>ointer to be considered. The value of a file's r/w pointer may be obtained by 
calling the "tell" function, and modified by calling "seek". 

[o illustrate the use of raw I/O in a program, let's build a simple utility to make a 
;opy of a file. The command format for this utility (which we'll call "copy") shall 
>e: 

A>copy filename newname <cr> 

?his will take the file named by "filename' and create a copy of it named by 
'newname'. Since this is to be a classy utility, we want full error diagnostics in 
•ase something goes wrong (such as running out of disk space, not being able to find 
:he master file, etc.) This includes checking to make sure that the correct number of 
irguments were typed on the command line. It is sometimes convenient to summarize a 
>rogram in a half-C/half-English pseudo code form to avoid going in blind; Here is 
;uch a summary of the copy program: 

copy(filel,file2) { 

if (exactly 2 args weren't given) { complain and abort } 

if (can't open filel) { complain and abort } 

if (can't create file2) { complain and abort } 

while (not end of filel) { 

Read a hunk from filel and write it out to file2; 
if (any error has ocurred) { complain and abort } 

> 

close all files; 
} 

jid here is the actual C program that implements the above procedure: 



C. 
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//include "bdscio.h" /* The standard header file */ 

^define BUFSECTS 64 /* Buffer up to 64 sectors in memory */ 

int fdl, fd2; /* File descriptors for the two files */ 

char buffer [BUFSECTS * SECSIZ]; /* The transfer buffer */ 

main(argc,argv) 

int argc; /* Arg count */ 

char **argv; /* Arg vector */ 

{ 

int oksects; /* A temporary variable */ 

/* make sure exactly 2 args were given */ 
if (argc != 3) 

per ror ("Usage: A>copy filel file2 <cr>\n") ; 

/* try to open 1st file; abort on error */ 
if ((fdl = open(argv[l],0)) == ERROR) 

per ror ( "Can't open: %x\n" ,argv [ 1] ) ; 

/* create 2nd file, abort on error: */ 
if ((fd2 = creat(argv[2])) == ERROR) 

perror( "Can't create: %s\n" ,argv[2] ) ; 

/* Now we're ready to move the data: */ 
while (oksects = read (fdl, buffer, BUFSECTS)) { 
if (oksects == ERROR) 

perror( "Error reading: %s\n" ,argv[ 1] ) ; 
if (write(fd2, buffer, oksects) != oksects) 

perror ("Error; probably out of disk space\n"); 
} 

/* Copy is complete. Now close the files: */ 
close(fdl); 
if ( close (fd2) == ERROR) 

perror ("Error closing %s\n" ,argv[2] ) ; 
printf("Copy complete\n") ; 
} 

perror (format, arg) /* print error message and abort */ 

{ 

printf (format , arg); /* print message */ 

fabort(fd2); /* abort file operations */ 

exit(); /* return to CP/M */ 

} 

Now let's take a look at the program. First come the declarations: we need a file 
descriptor for each file involved in the copying process, and a large array to buffer 
up the data as we shuffle chunks of disk files through memory. The size of the buffer 
is computed as the sector size (defined in BDSCIO.H) times the number of sectors of 
buffering desired (defined at the top of this program as BUFSECTS). 

In the "main" function, the first thing to do is make sure the correct number of 
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arguments were given on the command line. Since the "argc' parameter is provided free 
?y the run-time package to every main program, and is always equal to the number of 
arguments given PLUS ONE, we test to make sure it is equal to three (i.e, that two 
arguments were given). If argc is not equal to three, we call "perror" to print out a 
complaint and abort the program. "Perror" interprets its arguments as if they were 
the first two arguments to a "printf" call, performs the required "printf" call, 
aborts operations on the output file (this wouldn't have any effect if called before 
the file is opened; this would be the case if the "argc != 3" test succeeds), and 
sxits to CP/M. 

If we make it past the argc test, it is time to try opening files. The next statement 
Dpens the master file for reading, assigns the file descriptor returned by "open" to 
the variable *fdl', and causes the program to be aborted if "open" returned an error, 
rhis can all done at one time thanks to the power of the C expression evaluator; if 
/ou aren't used to seeing this much happen in one statement, take a moment to follow 
:he parenthesization carefully. First the call to "open" is performed, then the 
assignment to % fdl' of the return value from "open", and then the test to see if that 
/alue was ERROR. If the value was NOT equal to ERROR, control will pass onto the next 
'if statement; otherwise, the appropriate call to "perror" diagnoses the problem and 
terminates the program. Creating the output file follows exactly the same pattern. 

laving made it through all the preliminaries, it is time to start copying some data 
[finally!). Each time through the "while' loop, we read as much as we can get (up to 
3UFSECTS sectors) into memory from the master file. The "read" function returns the 
lumber of sectors successfully read; this may range from (indicating an end-of-file 
[EOF] condition) up to the number of sectors requested (in this case, BUFSECTS), with 
i value of ERROR being returned on disaster (when the disk drive door pops open or 
something). Whatever this value may be, it is assigned to **oksects' for later f 
;xamination. In the special case when it is equal to* zero, indicating EOF, the "while" 
Loop will be exited. Otherwise, we enter the loop and attempt to write back out the 
lata that we just read in. First, though, we want to make sure no gross error 
>ccurred, so a check is performed to see if ERROR was returned by the "read" call. If 
jo, it's Abortsville. Having safely circumnavigated Abortsville, we call "write" to 
lump the data into the output file. If we don't succeed in writing the number of 
sectors we want to write, it's back to Abortsville with an appropriate error message 
'most write errors are caused by running out of disk space.) If the "write" succeeds, 
re go back to the top of the loop and try to read some more data. 

lie last thing to do, once the "while" loop has been left, is to mop up by closing the 
iiles; just to be complete, we check to make sure the output file has closed 
correctly. And that's it. 

"he raw file I/O functions are most useful when large amounts of data, preferably in 
tven sector-sized chunks, need to be manipulated. The preceding file-copy program is a 
:ypical application. Raw file I/O requires you to always think in terms of 
'sectors" — while this poses no particular problem in, say, the file-copy example, it 
loes add quite a bit of complexity to shuffling bits and pieces of randomly-sized 
lata. Consider, for example, the unit known as the "text-line": A line's worth of 
lSCII data may vary in size anywhere from 1 byte (in the case of a null string, 
epresented by the terminating null only) up to somewhere around 133 bytes, or maybe 
;ven more if you're dealing with some really fancy printing device. Anyway, some 
onvenient method to read and write these text-lines to and from disk files would be a 
ery useful thing for text processing applications. Ideally we'd like to be able to f 
all a single function, passing to it some kind of file descriptor and a pointer to a 
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text-line, and let the function write the text-line into the file so that it 
immediately follows the last line written to that file. Also, to prevent a 
time-consuming disk access every time a line is written, it would be nice to have our 
function collect up a bunch of lines and toss them all to disk at once when the 
"buffer" fills up. Analogously there would have to be a function to read a text-line 
from some disk file into a given place in memory; here, also, it would greatly improve 
performance if an invisible buffer was managed by the text-line-grabbing function so 
that disk activity is minimized. The functions described here are, in fact, "fputs" 
and "fgets" from the library: two of the "buffered I/O" functions. 

The spotlight in the world of buffered I/O is a structure called, amazingly, an "I/O 
buffer". Within this structure is a large, even-sector sized character array within 
which the data being transferred is stored, and several assorted pointers and 
descriptors to keep track of "what's happening" in the data array portion of the 
buffer. There's a file descriptor to identify the file in raw I/O operations, there's 
a pointer into the data array to tell where the next byte shall be read from or 
written to, and there's a counter to tell how many bytes of either data or space 
(depending on whether you're reading or writing) are left before it becomes necessary 
to reload or dump the buffer. (1) 

Buffered I/O functions use pointers to I/O buffers just as the raw functions use file 
descriptors. There are six functions that perform all actual buffered I/O for single 
bytes of data; the other buffered I/O functions (such as "fputs" and "fgets") do their 
stuff in terms of the six "backbone" functions. 

For reading files we have "fopen", "getc" , and "f close". "Fopen" is called to 
associate an existing input file with a user-provided I/O buffer area by initializing 
all the variables in that buffer. "Getc" grabs a byte from the buffer, first refilling 
the data array from disk whenever the array is found to be empty, and returns a 
special value (EOF) when the end of the file is reached. "Fclose" closes the file 
associated with an I/O buffer. 

For writing files there are "fcreat", "putc", "f flush", and "fclose" again ("fclose" 
leads a double existence.) "Fcreat" creates a new file and prepares an associated I/O 
buffer structure for recieving data. The data is written to the buffer via calls to 
"putc", one byte at a time. When all the data has been "putc"-ed, "f flush" is called 
to dump out the contents of the not-yet-full I/O buffer to the disk file. Finally, 
"fclose" wraps things up by closing the associated file. 

The only functions that actually read and write data are "getc" and "putc"; functions 
such as "fgets", "fputs", "fprintf", etc. do their reading and writing in terms of 
"getc" and "putc". 

Let's look at a simple first example. The following program prints a given text file 
out on the console, with line numbers generated on the left margin: 



L. The devious user may wonder why there is space taken for a byte counter, when the 
lata pointer could just as well be compared to the last array address to detect a 
lull/empty buffer. Actually, it ends up being more efficient with the counter, 
>ecause the code required to compare two addresses is usually bulkier than the code 
required to decrement a counter and test for zero. 
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/* 

PNUM.C: Program to print out a text file with 
automatic generation of line numbers. 
*/ 

//include "bdscio.h" 

ma in ( ar g c , a r g v ) 

char **argv; 

{ 

char ibuf [BUFSIZ] ; /* declare I/O buffer */ 
char linbuf [MAXLINE] ; /* temporary line buffer */ 
int lineno; /* line number variabele */ 

if (argc != 2) { /* make sure file was given */ 
printf ("Usage: A>pnum filename <cr> \n"); 
exit(); 
} 

if (fopen(argv[l],ibuf) == ERROR) { 

printf ("Can't open %s\n" ,argv[l] ) ; 
exit(); 
} 

lineno =1; /* initialize line number */ 

while (fgets(linbuf ,ibuf)) 

printf ("%3d: %s" ,lineno++, linbuf) ; 

fclose(ibuf ) ; 



Hie declaration of "ibuf provides the I/O -buffer area for use with "fopen", "getc" 
md "f close". The symbolic constant "BUFSIZ", defined within the BDSCIO.H header file, 
:ells how many bytes an I/O buffer must contain; this value will vary with the number 
>f sectors desired for data buffering. See BDSCIO.H for instructions on how to 
customize the buffered I/O mechanism for a different buffer size (the default is eight 
sectors) . 

Lfter checking the argument count and opening the specified file for buffered input, 
ill the REAL work takes place in one simple "while" statement. First the "fgets" 
function reads a line of text from the file and places it into the % linbuf array. As 
ong as the end of file isn't encountered, "fgets" will return a non-zero (true) value 
tnd the body of the "while" statement will be executed. The body consists of a single 
all to "printf", in which the current line number is printed out followed by a colon, 
pace, and the current text line. After the value of "* lineno' is used, it is 
ncremented (by the ++ operator) in preperation for the next iteration. The cycle of 
eading and printing lines continues until "fgets" returns zero; at that point the 
while" loop is abandoned and "f close" wraps things up. 

'or our final example we have the kind of program known as a "filter". Generally, a 
ilter reads an input file, performs some kind of transformation on it, and writes the V 
esult out into a new output file. The transformation might be quite complex (like a C 
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compilation) or it might be as trivial as the conversion of an input text file to 
upper case. Since printing costs are pretty high these days, let's skip the C 
compiler for the time being and take a look at a To-Upper-Case filter program: 

//include "bdscio.h" 

main(argc,argv) 
char **argv; 
< 

char ibuf [BUFSIZ], obuf [BUFSIZ] ; 

int c; 

if (argc != 3) < 

printf ("Usage: A>ucase file newfile <cr> \n") ; 
exit(); 
} 
if ( f open (argv[l], ibuf) == ERROR) < 

printf ("Can't open %s\n" ,argv [1] ) ; 
exit(); 
} 
if (fcreat(argv[2],obuf) == ERROR) { 

printf ("Can't create %s\n" ,argv [2] ) ; 
exit(); 
} 

while ((c = getc(ibuf)) 1= EOF && c 1= CPMEOF) 
if (putc(toupper(c) ,obuf ) == ERROR) < 

printf ("Write error; disk probably full\n"); 

exit(); 
> 

put c( CPMEOF, obuf ) ; 
fflush(obuf); 
fclose(obuf ) ; 
fclose(ibuf ) ; 



This time there are two buffered I/O streams to be dealt with: the input file and the 
output file. The first thing to do is check for the correct number of arguments (in 
this case, two: the name of an existing input file, and the name of the output file to 
be created). Then "fopen" and "fcreat" are called, to open and create the two files 
for buffered I/O. If that much succeeds, the main loop is entered and the fun begins. 
On each iteration of the loop, a single byte is grabbed from the input file and 
compared with the two possible end-of-text-f ile values: EOF and CPMEOF. Normally, the 
last thing in a text file SHOULD be a CPMEOF (control-Z) character. But, some text 
editors (none that I use) neglect to place the CPMEOF character at the end of a file 
if the file happens to end exactly on a sector boundary; in this case, CPMEOF will 
never be seen and the physical end-of-file value (EOF) must be detected. The 
complication this causes is rather tricky... the EOF value returned by "getc" is -1, 
which must be represented as a 16-bit value because "char" variables in BDS C cannot 
take on negative values. This is why the variable *c' is declared as an "int" instead 
of a "char" in the above program; if it were declared as a "char", then the 
sub-expression 
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c = getc(ibuf) 

Id result in a value having the type "char" and could never possibly equal EOF as 
ted for in the program. Should "getc" ever return EOF in such a case, *c' would end 

being equal to 255 (the "char" interpretation of the low order 8 bits of the value 
). Thus, % c' is declared as an "int" so that the EOF comparison can make sense, 
s is awkward because % c' is used here for holding characters, and it would be nice 
have it declared as a character variable. There's actually a way to do it, at the 
ce of complete generality: if the EOF in the comparison were changed to 255, then 

would have to be be declared as a "char", and the program would work. . .EXCEPT for 
n an actual hex FF (decimal 255) byte is encountered in the input file! Now, while 
is a pretty safe bet to assume there aren't any hex FF bytes in your average text 
e, there may be exceptions. Also, there's no law that says filters can only be 
tten for text files. Consider a program to take a binary file and "unload" it, 
ating an Intel-format HEX file. Would we want it to halt when the first hex FF is 
ountered? No, the original method is clearly the most general. 

e having determined that the end-of-file has not been encountered, the body of the 
ile" statement is executed. Here we use "toupper" to convert the character obtained 
m "getc" to upper case, and then we use "putc" to write the resulting byte out to 
: output file. To be neat, errors are checked for: the program terminates if "putc" 
urns ERROR. 

soon as an end-of-file condition is detected, we write out a final CPMEOF 
>ntrol-Z) character to terminate the output file. The way this particular program is 
up, the CPMEOF will be appended to the output file whether or not the input file 
led with a CPMEOF. Next, "f flush" is called to flush the output buffer. This must 
/ays be done before closing a buffered output file, to make sure that all characters 
it to "putc" since that last time the buffer filled tip get written to disk. Finally, 
:lose" is used to close the input and output files. 

: more examples of the usage of buffered I/O, see CONVERT. C, CCOT.C, TABIFY.C and 
.NET.C. Also, take some time to inspect the files BDSCIO.H, STDLIB1.C and STDLIB2.C, 
ch contain the sources of all the buffered I/O functions. 



r 
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In this document I will attempt to remove some of the mystery behind the CP/M console I/O 
anisms available to BDS C users. When the major documentation for BDS C (i.e. the User's 
e) was being prepared, I had mistakenly assumed that users would automatically realize how 
"bdos" and "bios" library functions could be used to perform all CP/M and BIOS functions, 
cially direct console I/O (by which the system console device may be operated without the 
trating unsolicited interception of certain special characters by the operating system.) In 
, the use of the "bios" function for such purposes might only be obvious to experienced 
users, and then only to those having assembly language programming experience with the 
y-gritty characteristics of the CP/M console interface. Let's take a look at what really 
ens during console I/O... 

The lowest (simplest) level of console-controlling software is in the BIOS (Basic 
t/Output System) section of CP/M. There are three subroutines in the BIOS that deal with 
ing and writing raw characters to the console; they are named x CONST' (check console 
us), % CONIN' (wait for and read a character FROM the console), and % CONOUT' (send a 
acter TO the console). The way to get at these subroutines when you're writing on the 
nbly language level is rather convoluted, but the BDS C library provides the *bios' 
tion to make it easy to access the BIOS subroutines from C programs. To check the console 
lis directly, you use the subexpression % bios(2)', which returns a non-zero value when a 
Die character is available, or zero otherwise. ' To actually get the character after 
s(2)' indicates one is ready, or to wait until a character is ready and then get it, use 
3(3)'. To directly write a character *c' to the console, you'd say % bios(4,c)', but note 

the BIOS doesn't know anything about C's convention of using a single '\n' (newline) 
acter to represent a logical carriage-return/linefeed combination. The call x bios(4, '\n' ) ' 

cause ONLY a single linefeed (ASCII OxOA) character to be printed on the console. 

Making sure that all console I/O is eventually performed by way of these three BIOS 
jutines is the ONLY way to both keep CP/M from intercepting some of your typing and insure 
jortability of programs between different CP/M systems. (1) 

The BDOS (Basic Disk Operating System) operations are the next higher level (above the 
> on which console I/O may be performed. Whenever the standard C library functions 
:har' and "putchar' are called, they perform their tasks in terms of BDOS calls. . .which in 

perform THEIR operations through BIOS calls, and this is where most of the confusion 
js. Just as there are the three basic BIOS subroutines for interfacing with the console, 
i are three similar but "higher level" BDOS operations for performing essentially the same 
j. These BDOS functions, each of which has its own code number distinct from its BIOS 
:erpart, are: "Console Input" to get a single character from the console (BDOS function 
'Console Output" to write a single character to the console (BDOS function 2), and "Get 



ilven so there's no way to know what kind of terminal is being used — so "truly portable" 
/are either makes some assumptions about the kind of display terminal being used (whether 
>t it is cursor addressable, HOW to address the cursor, etc.) or includes provisions for 
■modification to fit whatever type of terminal the end-user happens to have connected to 
system. 
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le Status" to determine if there is a character available from the console input (BDO/* 
ion 11). The BDOS operations do all kinds of things for you that you may not even be fu" V 

of. For instance, if the BDOS detects a control-S character present on the console input 
g a console output call, then it will sit there and wait for another character to be typed 
e console, and gobble it up, before returning from the original console output call. This 
e fine if you want to be able to stop and start a long printout without having to code 
feature into your C program, but it causes big trouble if you need to see EVERY character 

on the console, including control-S. A little bit of thought as to how the BDOS does what 
oes reveals some interesting facts: since it must be able to detect control-S on the 
le input, the BDOS must read the console whenever it sees that a character has been typed, 
e character ends up not being a control-S (or some other special character that might 
re instant processing) , then that character must be saved somewhere internally to the BDOS 
at the next call to '"Console Input' returns it as if nothing happened. Also, the BDOS must 
sure that any subsequent calls made by the user to % Get Console Status' (before any are 
to "Console Input') indicate that a character is available. This leads to a condition in 
a BDOS call might say that a character is available, but the corresponding BIOS call 

NOT, since, physically, the character has already been gobbled up by the BDOS during a 

interaction with the BIOS. 

If this all sounds confusing, bear in mind that it took me several long months of playing 
2F/H and early versions of the compiler before even I understood what the hell was going 

there. My versions of "getchar' and % putchar' are designed for use in an environment 

the user does NOT need total direct control over the console; given that the BDOS would 
3me nice things for us like control-S processing, I figured that I might as well throw in 

more useful features such as automatic conversion of the '\n' character to a CR-LF 
nation on output, automatic abortion of the program whenever control-C is detected on 

or output (so that programs having long or infinite unwanted printouts may be stopp / 
jit resetting the machine, even when no console input operations are performed), automat " 
rsion of the carraige-return character to a '\n' on input, etc. One early user remarked 
le would like *putchar' to be immune from control-C; for him I added the *putch' library 
Ion, which works just like "putchar' except that control-C's would no longer stop the 
am. Much later it became evident that neither % putchar' nor % putch' suffice when CP/M must 
revented from ever even sampling the physical console input. At this point I added the 
' function, so that users could do their I/O directly through the BIOS and totally bypass 
rustrating character-eating BDOS. 

[ promised some examples earlier, so- let's get to it. First of all, here is a very 
intary set of functions to perform the three basic console operations in terms of the 
function, with no special conversions or interceptions AT ALL (i.e., nothing like the 
— > CR-LF translations): 



( 
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/* 

Ultra-raw console I/O functions: 
*/ 

getchar() /* get a character from the console */ 
{ 

return bios(3); 
> 

kbhit() /* return true (non-zero) if a character is ready */ 
{ 

return bios(2) ; 
} 

putchar(c) /* write the character c to the console */ 

char c; 

< 

bios (4, c) ; 
} 

These ultra-raw functions do nothing more than provide direct access to the BIOS console 
Jtines. If you include these in your C source program, then the linker will use them 
ad of the standard library versions of the similarly named functions — provided that some 
t reference to them is made before the default library file (DEFF2.CRL) is scanned, 
ly, in programs where such functions are necessary, there will be many explicit calls to 
tiar' and *putchar' to insure that the library versions aren't accidentally linked. A good 
le of a case where trouble might occur is when the entire program consists of, say, a 
e "printf call followed by a custom version of "putchar'. Since the linker won't know 
"putchar' is needed until after \printf ' is loaded from the library, the custom version of 
har' will be ignored and the old (wrong) version will be picked up from the DEFF2.CRL 
ry file. The way to avoid such a problem is to insert, somewhere in the source file, 
cit calls to any functions that are a) NOT explicitly called otherwise, and b) named the 
as some library function. This isn't an expecially neat solution, but it gets the job 

OK, with that out of the way, let's consider some more sophisticated games that can be 
d with customized versions of the console I/O functions. For starters, how about a set 
performs conversions just like the library versions, detects control-C, and throws away 
haracters typed during output (except control-C, which causes a reboot)? No problem, 
s needed is automatic conversion of '\n' to CR-LF on output; conversion CR to '\n' and ~Z 
1 on input with automatic echoing; and re-booting on control-C during both input and 
t. 
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Vanilla console I/O functions without going through BDOS: ( 

Ckbhlt' would be the same as the above ultra-raw version) 
*/ 

//define CTRL_C 0x03 /* control-C */ 

#define CPMEOF Oxla /* End of File signal (control-Z) */ 

getchar() /* get a character, hairy version */ 

< 

char c; 

if ((c = bios(3)) == CTRL_C) bios(0); /* on ~C, reboot */ 

if (c == CPMEOF) return -1; /* turn ~Z into -1 */ 

if (c == r \r') < /* if CR typed, then */ 

p \itchar('\r') ; /* echo a CR first, and set */ 

c = '\n'; /* up to echo a LF also */ 

} /* and return a '\n' */ 

putchar(c); /* echo the char */ 

return c; /* and return it */ 

> 

putchar(c) /* output a character, hairy version */ 

char c; 

{ 



bios (4, c); /* first output the given char */ 

if (c == '\n') /* if it is a newline, */ 

bios(4, '\r'); /* then output a CR also */ 
if (kbhit() && bios(3) — CTRL_C) /* if ~C typed, */ 

bios(0); /* then reboot */ 

/* else ignore the input completely */ 



(' 



ow, if you wanted to have control-S processing and a push-back feature (the two are 
ly quite related, since you must be able to push back anything except control-S that 
be detected during output) , you could add some external "state" to the latest set of 
ons and keep track of what you see at the console input. Once this is done, though, 

: probably better off going back to the original library versions of x getchar' and 

iar', which let the BDOS handle all that grungy stuff. 

incidentally, CP/M version 2.x has a new BDOS function which supposedly makes it easier to 

m some of the direct console I/O operations that required the BIOS calls for CP/M 1.4. 

this might be useful for people having CP/M 2.x, it would render any software developed 

the new BDOS feature autistic when run on CP/M 1.4 systems. Please keep that in mind if 

rer write any software on your 2.x system for use on other (perhaps non-2. x) systems. 

>o far, everything I've talked about has been in terms of the BIOS, and applies equally to 
?/M systems. Unfortunately, there is one console operation often needed when writing 
time interactive operations that is not supported by the BIOS, and thus there is no 
3le way to implement it under CP/M. What's missing is a way to ask the BIOS if the console 
lal is ready to ACCEPT a character for output. An example of the trouble this omission 
3 is evident in the sample program RALLY. C; the case there is that the program must be 

to read input from the keyboard at any instant, and cannot afford to become tied 
rig for the terminal when the amount of data being sent to it has caused the X-ON/X-0 
col to lock up the program until a character can be sent. Given that the only "koshe 
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r" wit- 



•.end a character to the console is through the CONOUT BIOS call, and that such a call might 
iny time tie up the program for longer than is tolerable, the only recourse is to bypass 
>UT completely and construct a customized output routine in C that can be more 
listicated. This is done in RALLY. C, at the expense of non-portability for the object code; 
t user must individually configure his BDSCIO.H header file to define the unique port 
iers, bit positions and polarities of the I/O hardware controlling his console. It would 
been SO much easier if the BIOS contained just one more itty bitty subroutine to test 
ole output status... but NoooooOOOOOOOOoooooo, they had to leave that one OUT so we have to 
GE it... 

Sorry. I get carried away sometimes. Oh well... I hope this has helped to demystify some of 
obscure behavior sometimes evident during console I/O operations. For the low-down on how 
library versions of % getchar', *putchar' , etc. really work, see their source listings in 
2. ASM. And if there's something you want to do with the console and can't figure out how 
ite this document, I'm always available for consultation (at least whenever I'm near the 
e.) 

Good luck. 



fonsnlo T /n 1 O /on 



How To Avoid Warm-Boots After 
C Programs Finish Executing 

Leor Zolman, 12/81 

As most users of BDS C have probably noticed, C-generated COM files always perform a 
arm-boot when finished with their tasks. This is because the stack is usually placed in 
igh memory just below the BEDS, wiping out part of the CCP (console command processor) 
uring execution and requiring a warm-boot to bring back the CCP from the system tracks on 
isk. The following patches to the C.OCC run-time package file provide a way to generate 
OM files that do NOT perform a warm boot after execution, but instead return directly to a 
on-clobbered CCP. The price of avoiding a warm-boot is that there is less memory space 
vailable during execution (3000 bytes less by default); the advantage is that there is no 
aiting for the disk to seek and load the CCP every time the program is finished, improving 
verall performance and preserving the nerves of impatient hackers. 

hie procedure for generating non-booting programs is as follows: 

Make a copy of your normal version of C.CCC (the run-time package binary image) under 
some other name. 

Use DOT or SID to change your C.CCC file according to the patches listed below, and 
keep this new version of C.CCC for CLINK to use when linking your non-booting 
programs . 

Compile and link your programs normally, but do NOT use the "-t" CLINK option; it 
won't work correctly for non-booting programs. 

a. After linkage is complete, use DDT or SID to change the first four bytes of the 
resulting COM file as follows: 

100: 21 (was 2A) 

101: 00 (was 06) 

102: 00 (was 00 or 42) 

103: 39 (was F9) 

This MUST be done even if you've already changed some of these bytes in step 2, 
because CLINK itself sets the "first 4 bytes of the COM file it generates to 
instructions that don't work in the non-booting variation. So, this step changes them 
back to what they need to be for all this to work. 

>. (optional): If you REALLY need to put the run-time stack someplace special, patch in 
the following sequence at location 107h (or 4307h for modified systems) after making 
the mainline patches described above: 

107: 31 (was CD) 

108: <stack addr, low byte> (was 34) 

109: <stack addr, hi byte> (was 01 or 43) 

10A: 00 (was F9) 

Once this patch is made to C.CCC, it will remain in effect throughout later linkages, 
but the modification in step 4A must be made after each linkage. 

The COM file should now be ready to execute. Try a simple one-line "printf" program 
the first time to test out the C.CCC patches; if working correctly, the output line 
should be followed immediately by a return to the system ("A>" should be printed) 

1 
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without ANY disk activity having occurred. If anything else happens, re-check your 
patches. Remember that step 4 must be done after EVERY linkage. 

Remember to restore the original C.COC file when generating programs that need th v 
extra stack space and/or need a warm-boot performed after execution. 

are the C.CCC patches for non-booting GOM files: 

**** Changes to C.CCC for a non-warm-booting version ************ 

me of the values in the "NORMAL (OLD)" coluumn may be different * 

<m those shown if you've reassembled C.CCC on your own earlier) * 
••••a**************************************** 



NOBOOT mnemonic 
21 lxi h,0 



comments NORMAL (OLD) 

; get system SP into HL 31 



dad sp 
shld spsave 



;save until exit 



39 
22 
79 

05 or 47 ; (47h for modified CP/M) 

CD call sppatch ; compute new SP value 

34 

01 or 43 ; (43h for modified CP/M) 

F9 sphl ; place into SP reg 



00 
00 
00 
00 
00 
00 
00 
00 



retpatch: 






2A lhld spsave 


;this is a patch from 


C3 


79 


;the "vexit" routine, 


FB 


05 or 47 


;to restore system SP. . . 


OC 


F9 sphl 




CD 


C9 ret 


; . . . and return to CCP 


96 


sppatch: 


. 




2A lhld ram+6 


;get bdos pointer 


0D 


06 




FE 


00 or 42 


;(42h for modified CP/M) 


38 


11 lxi d,-3000 


; offset to bypass 


CA 


48 


;the CCP 


7B 


F4 




OC 


19 dad d 


; leave new SP value in HL 


E6 


C9 ret 


;in HL and return 


08 


00 




C4 


00 




82 


00 




11 



C3 jmp retpatch ; ready to exit... now reset C3 
2F ; SP and return to CCP 00 

01 or 43 ;(43h for modifed CP/M) 00 



ing warm-boots after C programs 



BD Software Telnet v2.0 Feburary 1980 



Documentation for use with BDS Telnet v2.1 



Leo Kenen 

172 Churchills Lane 

Milton, Mass. 02186 

2/1/80 



Setting up the: machine: 

To use the TELNET program effectively it is necessary for the hardware of your 
system to be properly configured. The current version will work with any modem which 
is connected to the microcomputer via a status driven port. This includes S 100 
modems such as the PMMI or the D.C. Hayes, even though many of the neat features 
of these modems can not be used with this release. 

On most systems the modem will be connected to the computer via a standard 
serial port and will run at 30cps (300 baud). A suitable cable must be made to connect 
the modem to the computer. This is usually a simple cable having one DB-25 (25 pin) 
connector at each end. The connectors may be either male or female depending on 
the requirements of your hardware. The standard wiring procedure is to connect pin 2 
of one connector to pin 3 of the other (this goes both ways) and to put jumpers on 
each of the DB 25's. These jumpers should be between pins 4 and 5, and another 
jumper connecting pins 6,8 and 20. 

Once the hardware is set up, it is then necessary to alter the /'define statements 
in the TELNET. C source file to fit your configuration. When all the necessary changes 
have been made to the program, you are ready to compile it and test it out. 



Initial test: 

Turn on the modem and set it to HALF duplex (or better, TEST mode). Run the 
TELNET program (after its been compiled and linked) by typing TELNET. The' program 
will then ask you if you expect an echo from the other computer or from the modem. 
Your reply should be 'y', since in this test we are hoping for an echo. Now type some 
keys on the console and see if they are displayed on the screen. If they are, then you 
have a working copy of TELNET. If nothing happens, there must be a problem with ei- 
ther the hardware or the software. If your modem has a test mode you should hear 
"blips" from the modem when keys are typed. If you do not, try reversing the wires on 
pins 2 and 3 of one of the DB-25 connectors. If the hardware looks good, check (and 
double check) the # defines in the program to be sure that they are correct for your 
system. 



Communication Mode: 

As soon as the program comes up you are in communication mode. In this mode 
anything that you type will be sent to the modem (except for the SPECIAL character, 
which causes TELNET to prompt for a special iimclion code). Everything that arrives 
from the modem is also displayed on your screen. In this mode your computer is a sim- 
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pie dumb terminal. For most applications this is the most common mode of operation. 



SPECIAL mode: 

To enter SPECIAL mode from communication mode it is necessary to type single 
SPECIAL character (defined for your particular implementation within the # define sec- 
tion of the TELNET. C source.) This character should be one which you are not likely to 
need to type while in communication mode with another system. On most systems this 
character ends up being the NULL (0x00), tA (0x01) or tt (0x1f). 

Typing an unknown command letter after hitting the SPECIAL character will display a 
iist of legal commands on the screen. To send the special character to the other sys- 
tem (just in case it ever becomes necessary), just type it twice. The following com- 
mands (issued after typing the SPECIAL character) can be used to receive and transmit 
files and to perform many other useful functions. 



Command Summary: 



O Open an Output file for a data transfer. This function can be used to 

begin receiving programs or data from anolher computer or just keep a 
record of the things that you did while on line. When this command is 
given TELNET will ask several questions concerning the protocol that 
should be used during this transfer. The first thing that TELNET needs 
to know is the name of the file that should be used to store the data 
which is received. The filename you specify should be in the standard 
CP/M format: 

Filename: foo.bar opens FOO.DAR on the current drive 

Filename: b.foo.bar opens FOO.BAR on B: 

When the file is opened, any old file with the same name will be lost. If 
this file can be opened, you will be asked if the transfer will involve 
TEXT (ascii data which is suitable for printing) or binary data. If your 
response is n' (to indicate binary) then the data received from the 
modem will not be displayed on the console until the transfer is complet- 
ed. If you just want a record of the sessions activity you must tell TEL- 
NET that text is going to be transfered (or you will not be able to see 
what you are doing). 

If the transfer is going to be in checksum mode, then there must 
not be any echo coming from the other system or your modem. TELNET 
will believe it if you say there is no echo, but if there really is an echo 
then the chances of making a good transfer are nil. 

If you do not choose checksum mode, then all incoming data will 
be buffered up in memory (except when pausing). Since the program 
cannot monitor incoming data while data is being dumped to disk, the 
normal procedure is to wait until you know there will not be any data 
coming in for a while (for instance, when you are talking to a ho:.t 
machine and it has just piinlcd its prompt character) and then give the 



( 
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dump command (D) to flush the buffer contents to disk. See also the D 
and C command descriptions. 

D Dump (append) current contents of the collection buffer to the disk file 

(opened with the O command), leave the file open for more data, and 
clear the collection buffer. This function is useful if the file which is be- 
ing transfered is larger than the buffer space. This is only needed if the 
transfer is rot in checksum mode, since TELNET manages the buffer au- 
tomatically when in checksum mode. After the buffer is dumped, collec- 
tion will continue although any data that is sent while the disk is active 
will be lost forever. 

C Close Output file. This function first forces an automatic dump of the 

memory buffer to the open file, after which the the file is closed. This 
command will also clear the memory buffer, permitting another file to be 
opened. Close is only needed if the transfer is not in checksum mode. 
An error in writing the file (such as running out of disk space) will result 
in the loss of the data. 

T This command is the complement of the Open command, used for 

transmitting a file from your system out to the modem and beyond. It 
prompts for the name of the file to be transferred and for information re- 
garding transfer protocol. These questions are analogous to those asked f 
by the Open command described above. If the file can be opened, then 
it will be sent to the other computer using the protocol selected. If the 
transfer involves binary data, then a status message will appear on the 
console after each 128-byte sector is sent. 

To abort or pause, use the A or P commands. 

P Pause from file transfer. If a file has been opened (using the O com- 

mand) in non-checksum mode, then this suspends the collection of in- 
coming text in the memory buffer until the R command is issued to 
resume collection. If a file is being transmitted (in either checksum or 
non-checksum mode) then the transfer is suspended, to be continued, 
when R is given. It is not good practice to pause during a checksummed 
transfer, but it is possible to recover provided: the transmitter pauses 
first, he waits for the receiver to pause before typing anything, the re- 
ceiver resumes first, and then the transmitter resumes. Messy but at least 
feasible. 

The main use of pause, though, should be during non- 
checksummed text file output. 

R Resume from a pause. 

A Abort current transfer. Use of this* command will terminate any transfer 

which is currently in progress. If there is no transfer progress, a short 
message to that effect will be printed. If you are receiving data (via the 
O command) this command will also send out an ETX (tC) to the 
transmitter to terminate that process also. While transmitting this com- (^ 

mand will send out enough ETX's to inform the receiver that the transfer 
has been terminated. If, however, the receiver is out of sync (probably 
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because of a slow terminal) when the transmitter aborts, then the re- 
ceiver may have to terminate manually after seeing nothing happen for a 
long enough period. 

V View the collection buffer. All contents of the collection buffer will be 

displayed on the console. Following the display of the data, the amount 
of free space left in the buffer will be announced. This is useful for veri- 
fying that a text file has been transferred properly. 

K Kill (erase, delete, throw away, ZAP) contents of the text buffer. 

Q Quit Telnet and return to CP/M. This function will dump any buffers that 

are being used for buffered I/O and then close the associated files. 
After all the housekeeping has been clone the system will warm boot. 

H Set Half/Full Duplex. Use this command to tell TELNET whether or not 

you are getting an echo from either the modem or from the other sys- 
tem. When this is set to half duplex, all data sent to the modem from 
your system will be simultaneously sent to your console output (except 
during binary data transfers). When in full duplex, it is assumed that the 
other system will echo what you type, so TELNET does not do it. There 
is no default for this command so TELNET will request the information 
from you at the start of a session. 

7 Select protocol concerning the Parity bit. This function permits the pari- 

ty bit to be preserved or to be masked out. In text files it is normal to 
mask out the MSB (ani 7fh). During a transfer this mode is set automati 
cally. 

N Select protocol regarding Nulls. This function is used to tell TELNET to 

either disregard nulls (for text) or to notice nulls (needed in binary and 
some other applications). When the system is noticing nulls, then they 
will be placed in the text buffer and saved when the buffer is dumped to 
disk. Ignoring nulls reduces the amount of storage necessary since nulls 
will not be placed into the buffer. 

F Select linefeed protocol. Asks whether or not the linefeeds which follow 

carriage-returns in CP/M text files should be transmitted. Many remote 
systems would not appreciate those linefeeds. 

L Enable/disable CP/M list device. If enabled, anything going to the con- 

sole (except TELNET control messages) is also sent to the list device 
(usually a printer.) The printer's baud rate should be higher than the 
modem's. 

SPECIAL Transmit the SPECIAL character to the modem. 
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BDS C v1.M6 (c) 1982 by Leor Zolman 



This file describes all files supplied on the BDS C v1.46 distribution disk, 
and also lists all documentation that should be included in the package as 
purchased from Lifeboat. 

r ILES: 



^UCOM, CC2.COM: 
:LJNK7€UM "" 



:libTcom~ 

jgFFTTKb,, DEFF2.CRL^ 



JDSCIO.H 

JTDLIB1.C, STDLIB2.C 



C^ 



)EFF2.CSM, DEFF2A.CSM (new) 
IDS. LIB 
JCC^.ASM 
>I0.C, DIO.H 



fILDEXP.C 
ASM.Cj CASM.SUB 



(new) 
(new) 



L0AT.DOC, FLOAT. C, FLOATSUM.C 
ON VERT. C, CCOT.C 



BDS C Compiler (parts I and II) 

BDS C Linker 

BDS C Librarian 

BDS C Standard Library object files 

BDS C Run-time package ojbect code 

Standard C header file 

Sources to the C-coded parts of the standard 

library (object in DEFF.CRL) 

Sources to the assembly-coded parts of the 

standard library (object in DEFF2.CRL) 

Header file used for assembly-language function 

generation 

Source to the run-time package 

Directed I/O library, allowing for directed 
input, directed output and pipes (a la Unix*) 
(*Unix is a trademark of Bell Laboratories) 

Command line wild-card expansion utility 

CSM-to-CRL assembly language preprocessor and 
companion submit-file. 

Bob Mathias's floating point utility package 

Utilities for using BDS C on upper-case only 
terminals (such as the TRS-80 Mod I) 



ELNET.C 

THELLO.C 

IEVE.C 



PR.C 
0B00T.C 



LPH.C 



(new) 



(new) 



A telecommunications program 
A game program 

A benchmark, taken from the BYTE magazine high- 
level language benchmark article. Directions 
are included on how to make it compile and run 
a lot faster than it did in the article... 
A line-printer driver utility. 
A utility to make C-generated COM files return 
quickly to the CCP after execution, instead of 
performing a warm-boot. 
A line-oriented file alphabetizing utility. 



OCUMENTATION: 



The BDS C User's Guide 

The Kernighan & Ritchie book 



75 pages 
228 pages 
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he following documentation items may either be bound in with the User's Guide 
r included separately: 



v1.46 User's Guide addenda 

v 1 . 45 " " " 

v1.44 " » " 

v1.43 " " " 



4 pages 
7 pages 
M pages 
M pages 



(new) 



CASM Document 
Standard Library Summary 
Dynamic Overlay Guide 
File I/O Tutorial 
Console I/O Tutorial 
Telnet Guide 



3 pages 
5 pages 

4 pages 
8 pages 

5 pages 
4 pages 



(new) 
(new) 



BDS C User's Group application forms 2 pages 



/* 



#/ 



/* 



«/ 



The 80S C Standard I/O header file — vi.46 3/4/82 

This file contains slobal definitions* for use in all C prosraas 
in PLA& of Cveehhh) CONSTANTS. Characteristics of Your system such 
as video screen sise» interface port numbers and aasks> buffered I/O 
allocations* etc.* should all be configured Just once within this 
file. Anv presraiR which needs then should contain the preprocessor 
directives 

#include "bdscio.h" 

near the beginning. 

Go through and set all this stuff as soon as you set the package* 

and raost terminal-dependent sa»ple prosrass should run »uch better. 



$0!»e console *video) terminal characteristics! 
konfisured for ECS 45CK>) 



#define THIDTH 30 /* # of columns */ 
#define TLENGTH 24 /* # of lines */ 
#define CLEARS: "\0W /* String to clear screen on console */ 
#define INT(M:V "XOSSI" /* Strins to saitch console into reverse video */ 
#def ine OUTAREV "\033W" /* Strins to switch console OUT of reverse video */ 
Idefine CURSOROFF n \033Z H /# Strins to turn cursor off #/ 
#define CURSORQN "\033N" /* Strins to turn cursor on */ 
tdefine ESC y \033' /# Standard ASCII 'escape' character #/ 



/* 



*/■ 



Console serial port characteristics* 



#defin« CSTAT 
#define CDATA 
#define CIHftSK 
#define COfiASK 
tdefine CAHI 
#define CRESET 



0x09 

0x08 

0x02 

0x01 

1 





#define CRESETVAL 



/* status port */ 

/* data port */ 

/* input data rea<h' aasfc #/ 

/# output data ready »ask */ 

/* True if status active hish */ 

/* True if status port needs to be reset after input */ 

/* If CRESET is true* this is the value to send */ 



/* 
*/ 



Modea characteristics* 



#define HSTAT 
tdefine I1DATA 
tdefine HIHASK 
#define HGHASK 
#define HAHI 
#def ine HRESET 
ftdef ine HRESETVflL 



0x08 
0x02 
0x01 

1 



/♦status port */ 

/# data port */ 

/* input data ready sasfc */ 

/* ready to send a character task */ 

/# True if status losic active hish »/ 

/# True if status port needs to be reset */ 

/* If $£SET true? this is the byte to send */ 



/* 
*/ 



General purpose Syisfeolic constants? 



#def ins BASE /* Base of CP/h syste* RAM W or 0x4200) */ 

#def ine NULL 

#define EOF -i /* Physical EOF returned by low level I/O functions */ 

#define ERROR -1 /# General "on error 8 return value #/ 

tdefine CSC /* General purpose "no error" return value #/ 

#define JBUFSI2E 6 /* Length of set-Ju»p/lonsJu»p buffer #/ 

ftdefine CPHEOF Oxla /* CP/M End-of-text-file Barker (soffietinies!) */ 

#define SECSI2 128 /* Sector sire for CP/tt read/write calls */ 

#define MAXLINE 135 /* Lonsest line of input expected from the console */ 

•define TRUE 1 /* general purpose true truth value */ 

#define FALSE /* general purpose false truth value */ 

/* 

The NSECTS symbol controls the coi&pilation of the buffered 
I/O routines within STBLIB2.C, allowing each user to set the 
buffer size ifiost convenient for his svstea* while keeping 
the numbers totally invisible to the C source prosraas using 
buffered I/O {via the BUFSI2 defined symbol.) For larger 
f£ECTS> the disk I/O is faster... but more ra» is taken up. 
To change the buffer size allocation* follow these steps: 

1) Alter NSECTS to the desired value here in bdscio.h 

2) Re-c&ff<pile STDLIBi.C and STBLIB2.C 

3) Use CLIB to coffibina STBLIB1.CRL and STDLI82.CRL to sake 
a new EEFF.CRL. 

Hake sure you use declare all Your I/O buffers with the a 
stateaerit such as* 

char buf-na»e£BUFSIZJ; 
*/ 

#define NSECTS 8 /* Nu»ber of sectors to buffer up in ram */ 

tdefine BUFSI2 (NSECTS * SECSI2 + 6 ) /* Don't touch this */ 

struct -buf C /* Or this... */ 

int _fd? 
int -nleft? 
char *„nextp* 
char .buffCNSECTS * SECSHJ? 



#define FILE struct -buf /* Poor man's "typedef" */ 

/* 

If you plan to use the high-level storage allocation functions 
froffi the library ( "alloc" and "free") then! 

1) Uncoufflent (enable) the "ALL0CJ3N" definition* and consent out the 
"ALLOC-OFF" definition fro» this file. 

2) Re-co»pile STBLIBI.Cj and use CLIB to transfer "alloc" 
and "free" into the BEFF.CRL library file. 

3> THIS IS IMPORTANT!!! Include the stateaent? 

_allocp = NHL? /# initialize allocation pointer */ 

soiewhere in your "tain" function PRIOR to the first use 



of the "alloc" function. DON'T FORGET THIS INITIALIZATION* » 

Reae-iuber to include bdscio.h in ALL files of your C prosra». 
*/ 

#define ALLOC-CFF 1 /* disables storage allocation if unconsented #/ 

/# onlv ONE of these two lines should be uncounted */ 

/# 

#define ALLOC-ON i /* enables storsase allocation if unconsented */ 

*/ 

#ifdef ALLOC-ON /* if storage allocation enabled. */ 

struct -header { 

struct -header *-ptr? 
unsigned ^size' 



struct -header Jbase; /* declare this external data to »/ 
struct -header *-allocp» /# be used bv allocO and freeO #/ 

tendif 



♦include "aibdscio.h" 
♦define float char 
♦define short char 
♦define string char 
♦define byte char 
♦define boolean char 
♦define YES 1 
♦define NO 
♦define NONE 
♦define EMPTY 
♦define DEL OxTF 
♦define RUB-OUT 0x7F 
♦define AND && 
♦define OR !i 
♦define NOT ! 
♦define INPUT 
♦define OUTPUT 1 
♦define RANDOH 2 
♦define BASE 
♦define FROM-BASE 
♦define FROM-HERE i 
♦define IS-8EF0RE CO 
♦define IS-AFTER 50 
♦define IS-SANE =0 
♦define IS-0IFFERENT 
♦define BEFORE -1 
♦define AFTER 1 
♦define SATE 



♦define FLAG char 

♦define FILE struct -file 

struct -file { 

iirt -rfd; 
int ^sus* 
unsigned -frstsec? 
unsigned -cursec' 
byte .curbrts 
byte ft-nxtbyt* 
bvte ft-bufbase? 
byte *_pastbuf? 
char -isode* 
int -update' 
unsigned .curb Ik' 
int -blksiz? 



/# purse > Bore trouble than worth ♦/ 



!*0 



/ft code for 'openO' */ 



/« code for 'seekO' ♦/ 

/« r/» * offset */ 

/* r/w « cur-rent value + offset #/ 

/« code for / strc»p()"' */ 



/* file descripter ft/ 

/* ♦ of sectors in buffer */ 

/» first sector in buffer */ 

/* cp/a current randoB ac */ 

/* current randos bvte */ 

/* next bvte to be processed */ 

/* location of base #/ 

/* first bvte beyond end of buffer */ 

/» read » write* appendj or direct ft/ 

/* buffer aodified flag «/ 

/ft currently addressed block */ 

/* size of a logical block */ 



}? 



struct -fi!e_ptr { 

unsigned -sector? 
byte -byt! 



/* 

External data used fey DIO.C for directed I/O siaulationt 
(BCSCIO.H aust also he #included in the sain file.) 
*/ 



/* 

#define 8UR.CONS i 

#/ 

char- ..diflasr ..doflag? 
char ..pipef. *_pipedests 
char **-savei» *#_nullPos? 

char .diboftBUFSIZL _dobufCBUFSIZ3? 

#ifdef BUF.C0NS 

char .conbufCHAXLIIC + 23? 

char *..ccnbufp? 

#endif 



/* uncoaaent if console buffering is 
desired (see DIO.C) #/ 



/# flag if directed I/O berns used */ 
/* true ii a Pipe is being filled */ 
/* used to reaeaber position in 

coaaand line when piping #/ 
/* I/O buffers used for direction #/ 



/* console buffering data 



§/ 



/* console input buffer used for 

non-directed standard input */ 
/* pointer to next character to 

read froa console buffer */ 



PORTIQ.H - I/O buffer data type and related definitions for use 
with the I/O routines in PORTIO.C. */ 



struct 


iofauf ( 
int fd? 
int isect? 
int nextc? 
char written; 






char buff C1283 


• 

> 


♦define 


■ ABSOLUTE 





#define 


■ RELATIVE 


1 



/* currently buffered sector */ 

/# index of next char in buffer */ 

/* anything written in current sector? */ 



/* seek codes */ 



/* 



Directed I/O Package for BBS C vi,45 LZ — 12/81 

The following functions make up the directed I/O library* 

1. dioinit(&argc»argv) Hake this the first thins you do in 

vour "»ain" function? to process 
redirection commands on the CP/M 
command tine. 

2. getcharO Gets a character from the keyboard* 

or from a directed input file if one 
was specified on the command line. 

3. putchar(c) Puts a character out to the console? 

or to a 6itizti4 output file if one 
was specified on the command line. 

4. dioflushO Flushes directed output file? if open> 

and closes all directed I/O files (if 
any.) This must be called before Your 
program exits or returns to CP/M. 

To activate redirection? Four special arguments may be given 
on the command line to the generated GOH file... 

>foo causes "putchar" to place characters into the file 
named "foo" instead of to the console. 

*foo like >foo except that the characters are ALSO sent 
to the console. 

<foo causes "setchar" to return characters from the file 
named "foo* instead of froii the keyboard. 

command 'pros causes the standard output of the command specified in 
"command" to be fed into the standard input of another 
program* "pros". (BOTH "command" and "pros" must be 
compiled with BIO) 

(Note that there mist never be any spaces between >*+»< or ! and the 
corresponding filename.) 

When no "<* or K ! n operator is used? standard input cotes from the 
console and all standard line editing characters are recognized (a 
new feature of vi.45). To indicate end-of-file? you must type 

A 2 <CR> 
(control-Z followed by a carriage-return.) 

When no ">" or "! M operator is used? standard output goes to the 

console. 

A pros-ram allowing redirection must have the following forms 

^include "bdscio.h" /# standard header file */ 
#includ$ "dio.h" /* directed I/O header */ 

... /# other external s f if any */ 

main(argcTargv) 



char ftftarsv* 
{ 



dioinit(&argciargv)» 



dioflushO? 



/» declarations */ 
/* initialize redirection */ 

/* bodv of prograa */ 

/ft clean up redirection ft/ 



NOTES: 



0. The console input aay be raw (unbuffered? one char, at a tins) or 
buffered (entire line Bust be typed before chars are returned* 
allowing standard editins features* and characters coae back one 
at a tiae AFTER the entire line is tvped). The default is raw? to 
have buffered console input: uncoaaent the "#define BUFjCONS" line 
in DIO.H and recompile this file and all files in your prograa. 

1. Redirection and pipes work only for TEXT. This aechanisa should 
not be used for binary data. 

2. Use B -f dio" to link the prograa? this ensures that the proper 
versions of "getchar* and "putchar* are used. Do not define 
vour own "getchar" or Vutchar'S or thinss will set confused. 

3. Multiple pipes may be chained on one coaaand line. For exaaple* 
the following command feeds the output of prograa "foo" into the 
input of prograa "bar", the output of "bar" into the input of 
prosra» "zot B > and the output of "sot" into a file called "output"! 

A>foo arsi 'bar ,'zot ars2 ars3 >out?ut <cr> 

"arsl" is an actual arguasnt to "foe"? and "ars2" and H ars3" are 
actual arguaents to "sot*. This illustrates how actual arguments 
n»y be interspersed with redirection coaaands. The prograas see 
the actual arguaents* but coaaand line preprocessing handled by the 
"dioinit" function cause the prosraas to never need to know about 
the redirection coaaands. Note that all three prograas ("foo'S "bar" 
and "zot") aust have been coapiled and linked to use the "DIG" 
package. 



ft/ 



tinclude "hdscio.h" 
#include "dio.h 8 




#def ine C0L1MPUT 
#define C0NJ3UTPUT 
#def ine CON-STATUS 


1 

£ 
11 


tdefine CGNTROL.C 
#define STDERR 


3 
4 


tdefine INPIPE 


2 


tdefine VERBOSE 


2 



/ft 



/ft BOOS' call to read console */ 
/* 8DGS call to write to console ft/ 
/ft BOOS call to interrogate status */ 

/ft Suit character «/ 

/ft Standard Error descriptor (sorry? 

Unix fans* 2 was already used.) */ 
/ft bit setting to indicate directed 

input fros a teap, pipe file »/ 
/« bit setting to indicate output i$ to 

go to console AND directed output »/ 



The "dioinit" function aust be called at tha beginning of the 



"lain" function! 
*/ 

#define arse #arscp 

dioinit(arscp»arsv) 
int #arscp? 
char **ars>v» 

int i>J» arscount? 

-diflas = -doflas = .pipef = FALSE? /* No directed I/O bv default */ 
.nuljpos « 8tarsv£arsc3! 

#ifdef BUF.CONS 

-conbufCOJ = 0* /* no characters in buffer yet */ 

..conbufp * -.conbuf! /* point to null buffer */ 

#endif 

arscount = U 

for (i = i? i < arse* i++) /* Scan the cosaand line for > and < */ 
{ 

if (.pipef) break? 

switch(*ar3vEi3) { 

case •'<'! /* Check for directed inputs §/ 
if (!arsvf.i3fJ3) soto barf? 
U (fowntear-svCiHiJj -dibuf) « ERRC^> 
{ 

fpr int KSTDERR, "Can't open %5\n"4ar3vCi3Ci3)? 
exitO? 
} 

-diflas = TRUE? 
if *5trc&Pter•sv£i3,"<T£MPIN.$** , ') ~ 0) 

.diflas I* INPIPE? 
3oto sovarsv? 

case "{': /« Check for pipe? */ 
-pipef++? 

-pipedest « Searsvf.i3f.lJ? /* save pros naaie for exec! */ 
if (arsvmm) 
{ 

arsvCi3 = ".T£HPQUT.$*$ U ? /# tea?, output */ 

-savei « &arsv[i3? 
> 
soto foo? 

case '+'! 

..doflas != VERBOSE? 

foo? case '>'* /* Check for directed output */ 

if («arsvCiJ£I3) 

( 
barf: fprintf(STE£RR> H Bad redirection/Pipe specifier*)? 
exitO? 

} 

un!irfk(kr9v[i][13); 

if ifcreatdarsvCiJUJ* _dobuf) « ERROR) 



{ 

fpriM (STOERR, "Can't create Xs\n",fcarsvCi3£i3)J 

exitO? 
} 
-.doflas++? 

raovarsvs if (Lpipef) C 

for (j = i? j < argc" j++) arsvfj] = arsv[j+U* 
(arse)—? 

..nullpos— ? 

} fi!5€ { 

arse = arscount? 
arsvCarfc) = 0" 
} 
break* 

default: /* hand!* normal arsuiaents: */ 
arscount++; 



} 

tundef arse 

/* 

The "dioflush* function roust fee called before exitins the prosraiS 

*/ 

dioflusftO 
{ 

if Ldiflas) 
{ 

feloseLdibuf)* 

if Uiflas & INPIPE) unlink( B teiPin.$t$ a >! 



if Ldoflas) 
t 

putdCftCOR-dobuf)? 

fflusM.dobuf)? 

fcloseLdebuf)? 

unlink(*te8Pin.$*$ fl )5 /* in case previous pipe was aborted */ 

renafte( B te»pout.*$$Vte»pin. $$$")' 

if <«pipef) 

{ 

*-savei = 8 <TeS 5 IN.$$*°? 

#-nullpos = NULL! 

if (execvLpipedest*-.savei) « ERROR) 

{ 

fpr intHSTBERR, "\7Brofcen pipe\n*)! 
exitO? 



/* 



This version of "s-etchar" replaces the resUlar version when usins 
directed I/O. Note that the "BUF-CGNS" defined svifibol iin DIO.H) 
controls whether the console input is to be raw or buffered <see 
ite»» 0. in NOTES above) 
*/ 

setcharO 
{ 

int c? 

if Ldiflas) ( 

if (<c = setd.dibuf)) « '\r') c * setd-dibuf)? 

else 

tifdef BUFJMj /* For buffered console input* set a line of text */ 
{ /# fro« the 8D0S (usins "sets")* & insert newline? */ 

if (!*.conbufp) ( 

sets Lconbufp = .conbuf)? 
-conbuftstrlenLconbuf) + 13 = '\0'! 
_conbuf[strlen<_conbuf)3 = '\n x ? 



c = *_conbufp++? 



i 



#else /* for raw console input* siaulate nornal "setchar": »/ 

if (ic = bdos(CGfUNPUT)) « CGNTROL-C) exitO? 
#endif 

if U « CPNEGF) return EOF? /* Control-2 is EOF kev #/ 

if (c == '\r') 

c = '\n'S 
#ifndef BUF.CONS 

if (Ldiflas) bdos*2 s '\n*')? /* echo LF after CR to console */ 
tendif 

} 
return c? 



/* 

This version of "putchar* replaces tfi^ resular version when usins 

directed I/O.* 
*/ 

putcharte) 
char c? 
{ 

char ^static? 

static » **' /* reneabers last character sent? start out null »/ 

if Ldoflas) 
{ 

if <c » '\n' Mt *static != '\r') FUtc<'\r'»-dobuf>? 
*static = c? 

ifteutdc-dobuf) =± ERROR) 
{ 

fprintf(STBERR»"Fil« output error? disk full?\n*}? 
exitO? 



} 

it (H.doflas & VERBOSE)) return! 



if (MosfCOLSTATUS) && bdos(COIUNPUT) » C0NTR0L.C) ocitOi 
if (c * '\n' tt *static !« '\r'> bdos<CQrLOUTPUT,'\r'); 
bdos (CON-OUTPUT, c)! 
♦static = c? 



} 



/* Portable I/O Pacfcase functions */ 
/# Written ov EBH on 13 DEC 1981 */ 

/* i/o buffer data type */ 
tinclude "portio.h* 

#define TRUE (-1) 
tdefine FALSE 

int copen (buf* naae) 

struct iobuf *buf? 
char *nai»e? 

{ buf-Oisect = -1? /♦ nt values to force initial read */ 
buf->nextc = 128? 
buf->written = FALSE? 
return (buf->fd * open <naiae» 2)) J 
) 

int ccreat (buf» naise) 

struct iobuf *buf? 
char *naae? 

{ buf-Oisect a 0* /# don't force initial write! */ 
buf~>nextc = 0? 
buf-Owritten = FALSE? 

if" <ibuf->fd = creat (nanie)) < !i close (buf->fd) < 0) return <-l)s 
return (buf*>fd « open (narae* 2))' 
> 

int cclose (buf) 

struct iobuf *huf? 

{ if (cforce (buf) < 0) return (-1); 
return (close <fcuf~>fd)>* 



int cread (buf> loc> len) 
struct iobuf *buf* 
char *loc? 
unsisned ten* 

C char *oldloc» 
unsigned as»t? 

oldloc = loc! 
while (len) ( 

if Uaiat = sin (len, 128 - buf->nextc)) O 0) { 
if (cforce (buf) < .'! 

seek (buf->fd, ++buf-Msect, ABSOLUTE) < !! 
read (buf->fd, buf->buff, 1) != 1) break? 
buf~>nextc = 0? 
continue* 
} 
m\m® (Ibuf->buff£buf->riextc3j loc» a»t)* 
buf->nextc += aat* 
loc ** aat? 
len -= afut? 
} 
return (loc - oldloc); 



int cwrite (buf* loc* len) 
struct iobuf #buf? 
char *loc? 
int len? 

{ char *oldloc? 
unsigned amt" 

oldloc = loc" 
while (len) C 

if. (fast = »in (len, 128 - buf->nextc)) <= 0) C 

if (cforce (buf) < 0) break? 

++buf->isect" 

buf~>nextc = 0? 

continue? 

■ovBM (loc, &buf->buff£buf~>nextcJ> arat); 

buf->nextc += a*t* 

loc += aat? 

len -= affit; 

buf -Written = TRUE; 

return (loc - oldloc)? 



int cforce (buf) 

struct iobuf *buf? 

{ if (buf->nextc > fe& buf->written && 

(seek (toif->fd. buf->isect, ABSOLUTE) < ',,' 
write (buf->fd> buf->buff> 1) <-0)) return (-1); 
buf->written = FALSE? 
return (D? 
} 

int cflush (buf) 

struct iobuf #buf? 

£ if (huf->nextc & 0x7f) C 

setneR (&buf->bufftbuf->n«xtcJ, 128 - buf->nextc, i'V - '«'))? 
buf->written « TRIE? 

return (cforce (buf))5 
} 

int cseek (buf> aat? aode) 
struct iobuf ,.*buf? 
int a»t 5 node? 

{ int newsect, newpos? 

if (fflode « RELATIVE) 

(if (a»t < 0) ( /* backwards */ 
a»t = -a»t? 

newsect a buf->isect - (aat » ?)? 
newpos « buf~>nextc - (mt & 0x7f )? 
anile (newpos < 0) { 
newpos += 128? 



else 



-—ftHBM't? 
} 

if (newsect < 0) return <-J)» 



newsect = buf->isect + (a»t » 7)? 
newpos s buf->nextc + faurt & 0x7f)? 
while (newpos >= 128) C 

newpos -a 128? 

++newsect? 



} 



«lse if <»ode = ABSOLUTE) { 

if (a»t < 0) return (-1)? 
newsect * farot » 7)? 
newpos = (a»t & 0x7f )? 

else return *-i)? 

if (newsect != buf->isect St& 
kforce *buf ) < J ! 

seek Cbuf->f d, newsect, ABSOLUTE) < 5 J 

read (buf->fd, buf->buff» 1) != D) return (-1)! 

buf->isect « newsect? 

buf->r*extc = newpos? 

buf->written » FALSE? 

return (1)? 



J* 



Directed I/O package for use with BOS C vl«4x. 

The following functions sake up the directed I/O library* 



1. dioinit(&argc*argv) 



2. setcharO 



3. putchar(c) 



Make this the first thins you do in 
your "»ain" function, to process 
redirection coannds on the CP/M 
conand line. 

Gets a character fro» the keyboard, 
or froa a directed input file if one 
was specified on the cowsand line. 

Puts a character out to the consoles 
or to a directed output file if one 
was specified on the coiweand line. 



4. dioflushO Flushes directed output file, if open* 

and closes all directed I/O files (if 
any.) This must be called before your 
prosras exits or returns to CP/M. 

To activate redirection! Four special arguments aav be given 
on the coisaand line to the generated COM file... 

>foo causes "putchar" to Place characters into the file 
named "foe" instead of to the console. 

+foo like >foo except that ths characters are ALSO sent 
to the console. 

<foo causes "getchar* to return characters fros the file 
nased *foo" instead of fro» the keyboard. 

cowfiand jpros causes the standard output ^ the coaaand specified in 
"coBHsand" to be fed into the standard input of another 
prosraa, "pros*. (BOTH "cossand" and "pros" aust be 
coapiled with BIO) 

(Note that there aust never be any spaces betwaen >»♦»< or ! and the 
corresponding filenaae.) 

Thus, a C prosraa using redirection has the following forstf 



tinclude "bdscio.h" 
•include "dio.h" 



/# standard header file */ 
/* directed I/O header */ 



aain(argc.argv) 
char **arsv' 



/* other externals* if any */ 



dioinit(&ar3c.argv) 

# * # 

dioflushO? 



/* declarations */ 
/* initialise redirection #/ 
/«• body of prosraa */ 



NOTES! 



0. Redirection and pins work only for TEXT. This Mchanissi should 
not os used for binary data. 

1. The "setchar" and "putchar" functions should each be used EXPLICITLY 
at least once in your sain source file* so that the correct versions 
are picked off froa 010. CRL instead of the incorrect ones from 
DEFF2.CRL (because of the way the linker works.) 

2. The "putc" library function should be modified so that an iobuf 
value of 4 sends a character U the CP/H console via a "bdos" 
call (as opposed to usin9 "putchar")* and that a 'W character 
thus sent should be expanded into a CR-LF coibination. This 

is easily accomplished by addins the following clause to the "putc" 
function« recompiling STDLIBl.C* and updating DEFF.CRL bv 
transferrins in the new "putc" with CLIB.COM! 

if Uobuf « 4) { 

if (c == '\n'} bdos(2V\r')! 
bdos (2, c) ; 

X 

(This »ay already have been done in the version you have.) 

3. The "execv" function* used by this package, is available in the 
file EXECV. ASM? it should be asse(Bbled> renaasd EXECV.CRL, and 
then transferred into BEFF2.CRL us ins CLIB.CGH. 

(This roav already have been done in the version you have.) 



#/ 



ftinclude "bdscio.h 8 
♦include "dio.h" 

#define CON-INPUT 1 /# BOOS call to read console */ 

tdefine COfLOUTPUT 2 /* BDOS call to write to consols */ 

tdefine CON-STATUS 11 /* BBUS call to interrogate status */ 

#define CQNTROL.C 3 /* Ouit character */ 

♦define STBERR 4 /* Standard Error descriptor (sorry? 

Unix fans > 2 was already used.) */ 
♦define WIPE 2 /* bit setting to indicate directed 

input froffi a te»p. pipe fil */ 
tdefine VERBOSE 2 . . .. /# bit setting to indicate output is to 

so to console AND directed output #/ 



/ft 



The "dioinit" function »ust be called at the beginning of the 
"sain" functions 



#/ 

#define arse *arscp 

dioinit(arscp»argv) 
int ftarscp? 
char Marsv? 



int iih arscount? 

-diflas « -doflas = -pipef s FALSE? /* No directed I/O by default t/ 
.nullpos = tarsvtarsc}? 



arscount = U 

for (i * 1? i < argc? i++> /* Scan the coa&and lin« for > and < */ 
{ 

if Lpipef) break? 

switch <#argvf.i3) { 

case *<f\ /* Check for directed inputs #/ 

if f!arsvtiH13) soto barf* 
if (fopen(&arsvCi3£l]t -dibuf) = ERROR) 
{ 

fprintKSTBERR, "Can't open SsVn'S&argvmm)? 
exitO? 
> 

-diflas = TRUE? 
if Utrc»p{ar9vm, H <TEHPiN.$*$") = 0) 

-diflaf != INPIPE? 
goto AOvarBy; 

case '!': /* Check for pipe: #/ 

«pi?ef++? 

-pipedest = &arsvCi3Ci3» /* save pros naae for exec! */ 

if UrsvCiHi]) 
t 

V 

arsvCi] » MEHPOUT. $$$'*? /# Urn. output */ 

.savei = &argvCi3? 
} 
soto foo? 

case '+': 

-dof las != VERBOSE; 

foo? case '>'« /* Check for directed output #/ 

if (larsvmcn) 
{ 
barf J fprintf(STDERRT H Bad redir-ection/piPe specifier")? 
exitO? 
} 

unlink(Stargv£i3Ci3)? 

if (fcreatt&arsvmm, -dobuf) » ERROR) 
C 

fprintf(STDERR, "Can't create XsW.UrsvCHM)? 
exitO? 
} 
.doflas++? 

sovarsv* if (Lpipef) C 

for (J * i? J < arse? J++) arsv[J3 » arsvtj+l3* 

(arsc)~? , 

i—s 

>nullPos— ? 

> else { 

arse = ar-gtcunt? 

argvCarsc3 = 0? 
i 

i 

break* 

defaults /* handle normal arsuaents? */ 
arscount-H? 



> 
} 



tundef arse 
/* 



The "dioflush" function »ust be called before exiting the prograiU 
#/ 



dioflushO 
{ 



if Ldiflag) 
( 

fcloseLdibuf)? 



* 



/* Cleanup unconditionally so rename below can't screw up */ 
unlink( w te»pin.$**")? 



/* 



*/ 



This version of "getd-iar" replaces the regular version when using 
directed I/Os 



getcharO 

{ 



char c! 

if Ldiflag) ( 

if ((c a setcC.dibuf}) = '\r'J c = getc(-dibuf)? 
> else 

if Uc » bdos(COIUNPUT}> == CONTROLS) exitO? 

if (c == CPHEGF) return EOF? /* Control-Z is EOF key #/ 

if (c « '\r'> 

{ 

c = '\n'5 

if (Ldiflas) bdos(2»'\n'}? /* echo LF after CR to console §/ 

return c' 



/* 



*/ 



This version of "putchar" replaces the regular version when using 
directed I/O: 



putchar(c) 
char c? 
{ 

if (.doflas) 
{ 

if ( C ss '\n') putd-'Xr't.dobuf)? 
if<putdc,-dobuf) == ERROR) 



{ 

.fppiRtf(STBERR,' , Fil€ output error! disk ful!?^"); 

} 

if (lUtoflas & VERBOSE)) return? 



if (bdos(COfLSTATUS) tt bdos(COIUNPUT) » CONTROLS) exit!)! 

if (c « y \n'} bdostCONLOtfTPUT.'Xr')! 

bdo£(CONJ3UTPUT,d? 



ffi Software C Standard Library Machine Lansuase Functions 
Written bv Leor Zoli&an 
vl.46» 3/22/82 

this file is in "CS1" format* to convert to CFL forest, 

use CASH.SUB in conjunction with CASH.COM, ASM.COM and DBT.COM. 

Functions appearing in this file! 



?ch2: 



9ch3* 



s-etchar kbhit 


unsetch putchar putch sets rand 


srand 


srandl 


nrand 


csw setae® i&ovaea call call a 


inp 


outp 


peek 


poke sleep pause setfeb read 


write 


open 


close 


creat unlink seek tell renaias 


fabort 


fcbaddr exit 


bdos bios codend externs endext 


topofaeni 


exec 


exeel 


execv shrk rsvstfc 




aadib bds 






FUNCTION 


set char 




Ida 


unset 1 


•anvjrharacter pushed back? 




era 


a 






»ov 


]>a 






J?.. 


9ch2 






xra 


a 


?Yes. return it and clear- the pushback 




sta 


unset 1 


?bvte in C.CCC. 




ffivi 


h,0 






ret 








push 


b 






mvi 


cconin 






call 


bdos 






POP 


b 






cpi 


cntrlc 


? control ~C ? 




J2 


base 


?if so, reboot. 




cpi 


iah 


? control -2 ? 




Ixi 
rz 

my 


h,-l 


'if so, return -i. 




1,4 






cpi 


cr- 


"carriage return? 




j'nz 


sch3 






push 


b 






mi 


cconout 'it so, also echo linefeed 




mi 


e,lf 






call 


bdos 






pt^p 


b 






mi 


l,newlin Jand return newline (linefeed). 


• 


mi 


h.O 






ret 








ENDFUNC 


t 






FUNCTION 


kbhit 




Ida 


unset 1 


•any character unsotten? 




mvi 


h.O 


• 




aov 


l,a 






ora 


a 






rnz 




lif so, return true 







push 


b 




mvi 


c>cstat 'else interrosate console status 




call 


bdos 




POP 


b 




ora 


a 50 returned bv BDOS if no character re< 




Ixi 


h,0 




rz 


"return in HL if no character ready 




inr 


1 'otherwise return 1 in HL 




ret 






ENDRJNC kbhit 




FUNCTION unsetch 




Ida 


unset 1 




»ov 


l,a 




push 


h 




call 


ia2toh 




Sti 


unset 1 




POP 


h 




IB VI 


b.0 




ret 






BIDFUMC unsetch 




FUNCTION putchar 




call 


ialtoh 'set character in A 




push 


b 




jfivi 


Ci'conout 




cpi 


newlin "newline? 


3/W- 


ins 


putl 'if not* Just so put cut the character 




mvi 


e>cr .else... put out CR-LF 




call 


bdos 




f»Vl 


Cjconout 




mvi 


a»lf 


putl: 


»ov 


e*a 




call 


bdos 


put2? 


irivi 


c»cstat ?no») is inFut present at the console? 




call 


bdos 




ora 


a 


SM-i-*** . 


7ut3 




pop 


b ? no... all done. 




ret 




put3i 


mvi 


c»conin ?ves. saaple it (this will always echo 




Cjlll 


bdos ? character to the screens alas) 




cpi 


cntrlc *iz it control -C? 




J2 


base »if so? abort and reboot 




POP 


b 'else isnore it. 




ret 






ENDFUNC 


k 




FUNCTION putch 




call 


oaltoh 




posh 


b 




mi 


c*conout 




mv 


e>a 




cpi 


new! in 




■ha 


putch! 'if not neisline* Just put it out 




ivi 


e>cr lelse put out CR-LF 



call 
ffivi 
ffivi 
putchi: call 
pop 

ret 
ENDFUNC 

FUNCTION 

call 

push 

push 

push 

Ixi 

dad 

push 

mi 

Biyi 

xchs- 

call 

fffVJ 



bdos 

C.COROut 

S'lf- 

bdos 

b 



sets 

fset destination address 

jsive BC 



'use space belo» stack for reading line 

•save buffer address 

J/jyiow a nax of about 135 characters 



copy! s 




naltoh 

b 

b 

h 

h,-150 

SP 

h 

B,38h 

osetlin 

•put buffer addr in BE 
bdos 'set the input line 
ciconout 

•put out a If 

*?et back buffer address 

•point to returned char count 

5 set B equal to char count 

•HL points to first char of line 

?0E points to start destination area 

•copy line to start of buffer a 

M(> 



<-,A 



•store ten&matins null 
•return buffer address in HI 



3*1. 



rand is 



FU1CTI 


m 


lhld 


rseed 


xchs 




15 VI 


a»48h 


ana 


e 


*T 


randi 


jpe 


randl 


stc 




lhld 


rseed+2 


ral R 


^ 


1WW . h-.Fi,. 


AO£ — 


■- a.l 



rand 



nlft 



tm trs 

shld rseed+2 

imre ar^ 

ralft 

-fWV- 

*9V *rt» 



frr* ++*d f^- 



raK 


t 


mm <Hii — r*v* *-, •*■- 


soeo ^ 


rseed 


mov 


a»h 


am 


7fh 


mov 


h>a 


ret 




endfunc 




FUNCTION srand 


call 


malt oh 


mov 


a?h 


era 


1 


si > 


srand2 


shld 


rseed 


shld 


r-seed+2 


ret 




srand2: lxi 


d>stsl 


push 


b 


BfVi 


c,9 


call 


bdos 


!xi 


h*Obdbdh 


srand3s pjjsh 


h 


»vi 


cil 


_ " cafl 


bdos 


pop 


h 


inx 


h 


inx 


h 


inx 


h 


ani 


1 


3fcZ-«« 


srand3 


shld 


rseed 


shld 


rseed+2 


juvi 


c*concut 


ffivi 


e»cr- , 


call 


bdos 


ffivi 


ciconout 


mvi 


€,1* 


call 


bdos 


mvi 


Cicofiin ;clear the character 


call 


bdos 


POP 


b 


ret 




stsis db 'Wait a feu seconds* and tvpe a CR* 


ENDFUNC 




FUNCTION srandi 


EXTERNAL puts 


call 


araitoh 


Pttsh — Ht 


call 


puts I print proapt string 
-h— • 



push 


b 




Ixi 


h,5678h 




srla! push 


h 




mi 


Cscstat 




cal! 


bdos 




POP 


h 




inx 


h 




inx 


h 




inx 


h 




ora 


a 




5K.-2- « 


srla 




shld 


rseed 




shld 


rseed+2 




POP 


b 




ret 






ENDFUNC 




FUNCTION 


nrand 


EXTERNAL 


puts 


call 


arsbak 




Ihld 


arsl 


?9«t n (1st ar-9) 


160V 


a.h 




ana 


1 




CPJ 


255 


'was it -1 (set smU) ? 


3R*/li« 


nrandl 




Ihld 


ar-f2 


j copy seed 


shld 


seed 




Ihld 


ars3 




shld 


seed+2 




Ihld 


ars4 




shld 


seed+4 




ret 




'all done 


nrandi: push 


b 




»ov 


a*h 


'look at first ars asain 


ora 


1 




3t^-2L.<HTS 


nrand3 


'is it (randoaize)? 


Ihld 


ars2 




push 


h 


"yes* print out strins 


call 


puts 


'call, puts 


POP 


d 




Ixi 


h>5a97h 


;ves, start w/soffiethins odd 


nrand2: push 


h 




mi 


c»cstat 


•inter-ros-ate console status 


call 


bdos 




POP 


h 




inx 


h 


?and keep it odd 


inx 


h 


'and spowinf 


ora 


a 




3fc-z»« 


nrand2 


'until user types something. 


shld 


seed 


'then plaster the value all over the 


shld 


seed+2 


Had. 


shld 


seed+4 




POP 


b 




ret 






nrarid3: Ida 


sued 


?no» cotpute next randoa number, froi 


ori 


1 


* point on» the code is that of Prof, 


sta 


seed 


*lsb of SEEB iiust fee 1 



Paul Gans 



avi 


b,& 


? clear 6 PROD bYtes to 


lxi 


hjprod 




randal? avi 


»,(' 




inx 


h 




do*— - 


— b- 




D Jnz 


randal 




lxi 


b.6 


•set bYte counter 


rand»2: lxi 


hrPlier 


-1 


dad 


b 


?aake addr of Isb of FLIER 


ffiOV 


a>a 


5PLIER bYte 


push 


b 


?save bYte counter 


avi 


b,8 


"set bit counter 


randaSs aov 


d>a 


?save PLIER bYte 


lxi 


hi prod 


? shi ft whole PROD left one bit 


avi 


c,6 




xra 


a 




randa4: ausy_____a*j& 


•set bYte 


ral^ 


ft- 


Jshift left 


JWW — 


w«. n. 


;put b/te 


inx 


h 




dcr 


c 




siev^ 


randa4 




aov 


a»d 


1 recover PLIER bYte 


ral 




'look at current hish bit 


ISR^c^K 


randa6 


'0 aeans no add cycU 


push 


PSW 


?add SEED to PROD 


xra 


a 




fflvi 


c,6 




lxi 


h»prod 




lxi 


d*seed 




randaS* Idax 


d 




adc 


a 




mc«v 


a»a 




inx 


h 




inx 


d 




4ct 


c 




5<Wu*z 


randaS 




POP 


PStt 




randa&s <k? — "-fr* 


itut bit counter 


^Jnz 


randaS 


fso cYde aore bits 


POP 


b 


S recover bYte counter 


dcr 


c 


■'t«st ?* 


3RUZJ1« 


randa2 


•go process aore bytes 


avi 


b.6 


•coapleaent PROD* add 1 to it* 


lxi 


Ibseed 


•and transfer it to SEED. 


lxi 


diProd 




xra 


a 




Cac 






randa7s Idax 


d 




cm 






aci 







aov 


a*a 




inx 


h 




inx 


d 





4€f- 

f)jnz 
dcx 

l»OV 

ani 
rnov 
Ida 

IBOV 
POP 

ret 



rands? 

h 

a,» 

7fh 

h»a 

seed+4 

l,a 

b 



•put the two high order bytes 
» into H for return to C, not 
•neglecting to zero the high 
icrder bit so a positive int 
Sis returned 



pliers db 
db 



0c5h,87h,l 
0eh,9ah,0e0h 



seeds db 

prod: db 

ENDFUNC 



1,0,0,0,0,0 
0.0,0,0,0,0 



FUNCTION 
in 255 
mov l»a 
avi h»0 
ret 
ENDFUNC 



csw 



FUNCTION 

cal 1 arghak 



push 
?hld 

xchs 
Ihld 
Ida 
mov 
inx 
seti»2s dcx 
»ov 
ora 

POP 

ret 



b 
ars2 

arsi 

ars3 

c,a 

d 

d 

a,d 

e 

set»3 

b 



IROV 

inx 
3G, i«p 



ro»c 
h 

5 



FUNCTION 



call 


arghak 




Ihld 


ars3 


'get block length 


ffiOV 


a,h 




ora 


1 




n 




?do nothing if zei 


push 


b 




jrov 


b,h 




!50V 


c.l 


•set BC to length 


Ihld 


ars2 


•get dest addr 


xchs 




'put in I€ 



Ihld argi ?get source addr in HL 



call ciaphd ?if source < dest* do tail-first 
*5<\C« tailf 5*15$ do head-first 



headf? ffivi- 



Ht>2 



?test for 2-8( 



lftf^ a 

j-p* -«3d80k 1280? 

db OedtaObOh Jves. do block »ove. 



POP 

ret 



b 



'and done. 



stex- 



ilrr 






.- roov 



IT- 



-fe- 



-artr 



— on r 
,^63- m8080h 



tailf: 


dcx 

xchs 
dad 

xchs 


b 'tail first. Compute new source 
b^ ^ 'and destination addresses 

b 




inx 


b 

, a,„2 ?t^t for ZftO 




rnr 


■"—» 




db 

POP 

ret 


ffl8O80t~-?Z8O? 

0edb*0b8h, 'ves. do block sove. 


mSOSOiJ 


-»0¥— 


— a* a 




j** — 



ca»phd! siov 


a»h 


C»P 


d 


rns 




IBOV 


%>i 


CffiP 


e 


ret 




ENDFUNC 




RUCTION 


call 


arshak 


push 


b 


Ihld 


ars5 


XC&9 




Ihld 


ars4 


sov 


b,h , 



call 



,. 


Ida . 
Ixi 

push 
Ihld 

push 
Ihld 
ret 


c.l 

|TS2 

Ji?call2 
h 

arsi 
h 
ars3 






ca!12: 


POP 

ret 
ENDFUNC 


b 








FUNCTION 


calta 






call, 


arshak 








push 


b 








Ihtd 


ars5 


; set de value 




xchs 










Ihld 


ars4 


'set be value 




180V 


b.h 








B10V 


c.1 








Ida 


ars2 


'set a 


value 




Ixi 


h.calla2 *3et return address 




push 


h 


•push 


it 




Ihld 


ar9i 


'set address of routine 




push 


h 








Ihld 


ars3 


'set hi value 




ret 


-- 


Jcall 


routine 


calla2i 


: ffiov 


ha 


•put A value in H. 




»vi 


h,0 


! clear hish bYte 




POP 


b 








ret 










ENDFUNC 










FUNCTION 


inp 






call 


sal ton 








sta 


iohack+1 


.store as ar-s to r-aa area input subroutine 




call 


iohack 




"call the subroutine to set value 




fflOV 


J, a 




•and put into HL 




mvi 


h.O 








ret 










ENDFUNC 










FUNCTION 


outp 






call 


saltoh 




•set port nusfeer 




sta 


iohack+4 


^ .store as ars to raa area output subroutine 




call 


»a2toh 




?set data bvte 




call 


iohack*' 


^ 


? output it 




ret 










ENDFUNC 










FUNCTION 


peek 




peek* 


call 

ffiOV 

mi 


maltoh 

ho 

h,0 








ENDFUNC peek 







FUNCTION 


call 


arebak 


lhld_ 


arsi 


J da 


ars2 


sov 


Br* 


ret 




ENDFUNC 


L 


FUNCTION 


call 


naltoh 


push 


b 


inx 


h 


slU dcx 


h 


fflC'V 


a»h 


ora 


1 


<3M-uif* 


slia 


p* p 


A 


ret 




slia: lxi 


d, 10000 


5 12: dcx 


d 


ffiOV 


a»d 


ora 


e 


^(ifi-um. 


512 


push 


h 


i»vi 


CrCStat 


call 


bdos 


ora 


a 


POP 


h 


3kiM 


sli 


push 


h 


rovi 


c»cordn 


call 


bdos 


cpi 


cntrfc 


JZ 


base 


POP 


h 


* ENDFUNC 


sli 


RUCTION 


push 


b 


pausi: ffivi 


Cjcstat 


, «n 


bdos 


* r :* 


a 


3*7.* 


pausi 


POP 


b 


ret 




ENDFUNC 


i 


FUNCTION 


call 


arshak 


push 


b 


. Ihld 


arg2 


235P? aov 


a»s 


inx 


h 


cpi 


j» / 


5Rz*&- 


issp 


CPJ 


tab 


tr^x« 


issp 



sleep 



pause 



setfcb 



fset pointer to naae text 



dcx 

xchg 

Ihld 

call 

Ixi 

POP 

ret 
EHDFUNC 



h 

argi 
setfcfe 
h»0 
b 



"set D£ pointing to 1st non-space char 
iget — > hb area 
? do it 
fall OK. 



FUNCTION 

cal 1 arghak 



Ida 
call 
jc 

fflOV . 

ani 
jz 

push 
Ida 
call 
shld 
Ixi 
shld 
read2: Ihld 

•OV 

ora 

readl'a: Ihld 
xcha 
ffivi 
call 
Ihld 
xchs 
mvi 
push 
call 

POP 

cpi 

POP 
J2 

push 
cpi 



3&- 
read3.' 



Ixi 
dad 

ffiOV 

cpi 

mvi 

read4! Ihld 
readSs pop 
ret 



arsi 

fgfd 

error 

a, a 

2 

error 

b 

arsl 

fgfcb 

t»p2 

h,0. 

tip2a 

ars3 

a>h 

1 

read4 

ars2 

Cisdma 

bdos 

t»p2 

c>reads 

d 

bdos 

d 

2 

b 

error 

b 

i 

read& 

h,32 

d 

a? in 

80h 

read4 

ra»0 

tip2a 



read 



•error if illegal fd 

"open for read? 
? error if not 



it»p2 will hold dma addr 

.count of # of successful sectors read 

• will be kept at tap2a 

J done? 



•else read another sector 
'BE is dna addr 

;set DHA 

f0£ is fcb addr 

Jsave de so w can fudge nr field if 
Jwe stop reading on extent boundary.. . 
? CP/H sucks! 

'if error? abort 



?£0F? 

•ves. are we on extent bouridarv? 

•if so? adjust for CP/fl's stupidity here 

?bv turning an 80h sector count into OOh, 



*ves. reset nr to O...CP/H leaves it at 80h 



read&J 



Ihld arg3 

dcx h 

shld ars3 

Ihld arg2 

Ixi d,128 



dad 


d 




shld 


ars2 




Ihld 


t»p2a 




inx 


h 




shld 


t»p2a 




3" (*«*»» 


read2 




ENDFUNC 






function 


write 


call 


arshak 




Ida 


argi 




call . 


fgfd 




JC 


error 




nov 


a»a 




ani 


4 




JZ 


error 




push 


b 




Ida 


arsi 




call 


fsfcb 




shld 


tsip2 




Ixi 


h,0 




shld 


t»p2a 




Ixi 


d,tbuff 


;80 for nor-isal CP/M, els* 4280 


ffiVl 


c.sdisa 




call 


bdos 




writl? Ihld 


ars3 


•done vet? 


»ov 


a»h 




ora 


1 




Ihld 


tap2a 


•if so> return count 


3*i.#t 


writ3 




Ihld 


ars2 


•else copy next 128 bvtes down to tbuff 


Ixi 


d.tbuff 


530 for noraal CP/M» else 4280 


Las. wi 


b,128 






a» n 




stex — 


J CO 


\K 


jjjj^ — 


h 




inx — - 


d 




te^— — -b 

• . ... ;i^ 




shld 


U!I IK 

ars2 


•save -> to next 128 bvtes 


Ihld 


t«p2 


»set addr of fcb 


xchs 






IBVl 


c»writs 


?90 write 


call 


bdos 




ora 


a 


•error? 


Ihld 


t»p2a 


?if so> return # of successfully written 


3£Vzm< 


writs* 


• sectors. 


inx 


h 


; else buip successful sector count* 


shld 


t»p2a 




Ihld 


ars3 


• debuiP countdown t 


dcx 


h 




shld 


ars3 




*$A i»R 


writl 


i and so trv next sector 


writ3f pop 


b 




nt 






ENBFUNC 






FUNCTION 


open 



caU 


arshak 




xra 


a 




call 


fsfcb 


•any fcb's free? 


jc 


error 


"if not? error 


sta 


tfiP 




xchs 






"ihld 


arsl 




xchs 






push_ 


b 




jralf 


setfcb 




rrtvi 


c>openc 




call 


bdos 




cpi 


errory 


» successful open? 


POP 


b 




Jz 


error 


* if not? error 


Ida 


tap 




call 


fsfd 


'set H pointing to fd table entry 


Ida 


ars2 




ora 


a 


'open for read? 


ifivi 


d,3 




d/^f 


openl 




dcr 


a 




ffivi 


d,5 




^<2.-« 


openl 


'write? 


dcr 


a 




jnz 


error 


'else must be both or bad node. 


mi 


d,7 




PGTtU »ov 


IBrd 




Ida 


tRP 




fffOV 


ha 




■vi 


h,0 




ret 






EN0RJNC 






FUNCTION 


close 


Jap 


close 


UuftP to the close routine in CCCC 


endfunc 







FUNCTION 


creat 


EXTERNAL 


unlinks open 


call 


arshak 




Ihld 


arsl 




FUSh 


b 




push 


h 




call 


unlink 


'erase my 


POP 


d 




mi 


c» create 


Ixi 


d,fcb 




call 


bdos 




c?i 


errorv 




POP 


b 




J2 


error 




Ixi 


h,2 




push 


h 




Ihld 


arsl 




push 


h 




call 


open 




POP 


d 





versions of file 



pop d 

ret 

ENBFUNC creat 



FUNCTION unlink 



call 


maltoh 




push 


b 




xch3 






lxi 


tbfcb 




call 


setfcb 




mvi 


c?delc 




call 


bdos 




lxi 


h,0 




POP 


b 




ret 






ENDFUNC 






FUNCTION 


seek 


EXTERNAL 


tell 


call 


arshak 


'copy arsueents to arss area 


Ida 


ar3l 




call 


fsfcb 




k 


error 


•error if file not open 


push 


b 




push 


h 


5 save fcb address 



Ihld arsl 

push h 

call tell Swt r/w pointer position for the file 

pop d 

xchs "put present pos in BE 

Ida ars3 

Ihld ars2 'set offset in HL 

era a labsol ute offset? 

-3(^i_ «- s**k2 ?if so* offset is new position 

dad d "else add offset to current position 

seefc2s aov a»l 5 convert to extent and sector values 
rlc 

ffiov a»h 
ral 

ani 7fh 

sta tip 
xthl 

lxi dtl2 

push h 

dad d 

cap b ; JUBPins over extent boundary? 

3Ax « seekS 

xthl !ves. 
xchs 

mvi cttfosec 5 close old extent 

push d 

cal 1 bdos 

pop d 

pop h 

cpi errorv 

3$A/i0T« seek4 



seek3* 


POP 


d 






POP 


b 






jffip 


error 




Seek4* 


Ida 


tap 






fflOV 


a* a 






push 


d 






avi 


c>openc 


'and open new one* 




call 


bdos 




seekS: 


POP 


d 






cpi 


errorv 




3fc^** 


seek3 






Ixi 


h,32 


'and set nr field 




dad 


d 






POP 


d 






aov 


a>e 






ani 


7fh 






aov 


a»a 






xchs 




•return new sector 




POP 


D 






ret 







tel125 



FUNCTION 

call 

call 

jc 

push 

Ixi 

dad 

SOV 

)xi 
dad 
aov 
xra 

BiOY 

rar 

fflOV 

avi 
rar 
aov 
add 

ffiOV 
BJOV 

ana 

jp 

inr 

POP 

ret 
ENDFUNC 



aaitoh 

fsfcb 

error 

b 

d,12 

d 

b»a 

d,20 

d 

Ci» 

a 
a?b 

h»a 
a,0 

b>a 

c 

ha 

a»c 

b 

tel!2 

h 

b 



tell 

'set fd value in A 



•put extent # in B 



•put sector # in C 

'rotate extent risht one bit? old bO — > Carry 



•rotated value becomes hish bvte of tell position 
•rotate bO of extent into A 

'save rotated extent nuaher in 8 

?add rotated extent nuraber to sector nuaber 

•and result becoaes low byte of tell position 

? if both rotated extent # and sector # has bit 7 hi? 

•then the sua had an overflows so.,, 

•buap position nuaber by 256 
'and all done. 



renaae 



renaai 



call 
push 
Ihld 

XCftB 

Ixi 

call 

Ihld 

xchs 



arshak 

b 

arsl 

h»wfcb 
setfcb 
ars2 



caH setfcb 

lxi dj&jfcfc 

mvi c»renc 

cal 1 bdos 

pop b 

cpi errorv 

jz error 

lxi h»0 



ret 
wfcbJ ds 53 
ENDFUNC 



FUNCTION fabort 

call naltoh 

call fgfd 

jc error 

ffivi »jO 'clear entry in H table 

lxi h,0 

ret 

ENDRJNC 

FUNCTION fcbaddr 

call maltoh 

call HU 'is it an open file? 

jc error 

cal 1 aaitoh 

call fsfcb 'set fcb addr in HL 

ret 



FUNCTION exit 
Jbp exit 



FUNCTION bdos 



call 


arshafc 




push 


b 




Ida 


arsl 


?set C value 


fflOV 


c»a 




Ibid 


ars2 


; set C£ value 


xchs 




•put in IE 


call 


bdos 


'make the bdos cal? 


POP 


b 




ret 




'and return to call 



FUNCTION bios 



call 


arphak 


push 


b 


laid 


base+1 


dcx 


h 


dcx 


h 


<icx 


h 


Ida 


ar-si 


roov 


b>a 


add 


a 


add 


b 


mov 


e?a 


mi 


d,0 



fset addr of jurip table + 3 
Iset to addr of first Jusp 



'set function nusber- (i-35) 
"aultiplv by 3 



•put in 



dad 
push 
lhld 
rov 
mov 
Ixi 
xthl 
pchl 
retadd: »ov 
avi 

POP 

ret 



d ladd to bass of Jurp table 

h >and save for later 

ars2 "set value to be put in BC 

b»h land put it there 

c,l 

h> retadd 'where call to bios will return to 

•set address of vector in HL 

"and so to it... 
l>a Sail done, now put return value in HL 
h,0 



?and return to caller 



ENDFUNC 



FUNCTION codend 

lhld codend 

ret 

ENDFUNC 

FtflCTIOi extern? 

lhld extrns 

ret 

ENDFUNC 



lhld 

ret 

ENDFUNC 



freram 



endext 



FUNCTION 



lhld 

Ida 

cpi 

dcx 

rnz 

dad 
ret 
ENDFUNC 



base+& 
tpa 
21h 
h 



! check for "NOBOOT 8 hacker y 

? H lxi h" at start of C.CCC (as inserted by NOBOOT)? 
'if CCC doesn't besin with "Ixi hi" then top of 
•ijeiBorv is just below the base of the bdcs 
-2100 'else subtract CCP size (plus little rcore for sood 
Measure) and return that as top of neaorv. 



FUNCTION 
EXTERNAL 
call aaltoh 
Ixi d,0 
push d 
push h 
call execl 
pop d 
pop d 
ret 



exec 

execl 

»set filenaae 

'load null parameter in 

•push null parameter 

fpush filename 

•do an execl 

•dean up stack 



FUNCTION 



call 


arshak 


push 


b 


lhld 


ar-gl 


xchs 




Ixi 


h,-60 


dad 


SP 


push 


h 



execl 



icoipute &nfcb for use here 



save for luch later (will pop into BC) 



push h "Bake a few copies for Iocs) use below 

push h 

call setfcb 'set up COM file for execl-ins 

' pop h ?set new fcb addr 

Ixi t«T^ ?set extension to COM 

dad b 

mvi a>'C' 

inx h 

mvi Bi'O' * 

inx h 

mvi a» 'If 

pop d ? set new fcb addr asain 

avi c»openc 'open the^file for reading 

call bdos 

cpi errorv 

"3i?a/z- *fl« noerrr 

err-: pop h 

pop b 

jap error 

noerrr! Ihld ars2 'any first paraaeter? 

aov a> h 

ora 1 

Jfcyx J*2 exclO 

Ixi d>ars2 inc.. .null out first default fcb slot 

push d 

Ixi hi fcb 

call setfcb 

pop h 

•3^ 4m exdOa ?and 50 null out 2nd fcb slot 

exdO? xchs ?ves.. place into first default fcb slot 

Ixi h»feb 

cal 1 setfcb 

Ihld ars3 »anv second paraaeter siven? 

aov a*h 

ora 1 

*MiM& exclOa 

Ixi ruars3 



exclOa! xchs 
Ixi 
call 
Ixi 
xra 
5 tax 
Ixi 
dad 
avi 

exclU push 
aov 
inx 
aov 
aov 
ora 



3 V* 2 



HVl 

dcx 
exd2* call 



•yes? stick it into second default fcb slot 
tbfcb+16 
setfcb 
djtbuff+1 'now construct coaaand line? 



a 
d 
h,8 

SP 

b,0 

h 

a»a ^ 

h 

h?a 

ha 

h 

exc!3 

a,' ' 

h 

apuc 



zero tbuff+1 just in case there 

are no ars strings 
set pointer to 1st ars strins in rl 

bv offsetting 4 objects froa the current SP 
char count for coa. line buf. 
and construct coaaand line 
set addr of next ars strins pointer 



•0000 indicates end of list, 
•end of list? 



?no, install next strins 

? convert to upper case for coaaand line buffer 



stax d 

inx d 

inr b 

inx h 

nov a>rc 

or a a fend of string? 

MS €XCl2 

POP h ?YS5. 

inx h Jburop parais pointer 

inx h 

'Sfc. j*p excli 'and so do next strins 



Sf^ 



"dean up stack 

' check for coRitand buffer overflow 



excl3* pop h 

nov a»b 

cpi 53h 

${L<-' « «xcl30 'if no overflow? so load file 

lxi d»erririS9 

Bvi c>9 'else contain and abort,,, 

call bdos 

jap err 



errass* db 



7,'EXEO.: Too much tert'icr.lf,'!' 



exc!30* lxi h*tbuff 'set lensth of comand line 
i6ov »>b ?at location tbuff 



excl 3a J lxi 
lxi 

exc!4" ldax-_^d 
asac__j&»a 
inx — d ^.jO/^ 



xc14 



d»codeO J copy loader down to end of tbuff 

h»tpa-42 

M2 'lensth of loader 




POP 

Ihld 

Ida 

cpi 

Ihld 



1& 



ws 



b 'set fcb pointer in BC 

'reset the $P' 

base+6 'set BBOS pointer in HL 

tpa 'look at first op bvte of rurrtiise ?ks 

3ih 'begin with 8 lxi sp»"? 

soO 'if so? use the saae value nov... 

tpa+1 'else set special $P value 
sol 



SOU! CPI 

lxi 

dad 
sol? sphl 



21h ; begin with "lxi h" (the N£TOT sequence?) 
sol !jf not » just use the BDOS addr as top of aeaorY 
d,-2Q50 'for- NOBGCO", subtract 2100 fron BBOS addr 
d 'and aafce that the new S 5 



lxi hrbase 

push h 'set base of ras as return addr 

j»p tpa-42 "*so to % codeO*') 



spud cpi 
re 
cpi 
rnc 
sui 



61h 
7bh 
32 



Jconyert character in A to upper case 



ret 



This loader code is now! 42 bvtes Ions. 



codeO* Ixi 
codei: push 
push 
rovi 
call 

POP 

push 

mvi 

call 

POP 
POP 

ora 

Jz 

mvi 

lxi 

call 

jifip 



d?tpa 

d 

b 

CjSdM 

bdos 

d 

d 

c : reads 

bdos 

b 

d 

a 

tpa-8 

ctsdma 

dttbuff 

bdos 

tpa 



? destination address of new prosraa 

5 push daa addr 

•push fcb pointer 

» set DMA address for new sector 

?set pointer to working fcb in BE 
"and re-push it 
"read a sector 

? restore fcb pointer into PC 

•and diaa address into DE 

•end of file? 

'if not? set next sector (goto s cod*2!') 

> reset DMA pointer 



'and so invoke the prosraii 



code2* lxi 
dad i 
xchs 
j»p 



h»8K)h 'buffip droa address 



tpa-39 ?and so loop (at codei) 



FUNCTION 
EXTERNAL 
cal 1 arshafc 



Ihld 
i&vi 

execvl! inr 

UiOV 

inx 

!ROV 

inx 

ffiOV 

ora 

jns 



ars2 

b,0 

b 

e>»» 

h 

d»Bi 

h 

a>d 

e 

execvi 



execv 
execl 

?set -> ars list 
•clear ars count 
? feuffip ars count 



5 last ars? 

>if noti keep lookins for last one 



aov a*b 'save ars count in case of error 
sta savcnt 



dcx 

execv2* aov 

dcx 

10V 

dCX 

dcr 

PUEh 

Jnz 



h 

d»a 
h 

fijfR 

h 
b 
d 
execv2 



•*i -> next to last ars 
?now push arss on stack 



execv3* Ihld arsl 'set prosram nais 

push h ?save as first ars to execl 

call execl 'so do it' shouldn't cms back. 

Ida savcnt « hoops* we're back. Must've been an error.., 



add 

»ov 

ffivi 

dad 

sphl 

lxi 

ret 



a 

hi 

biO 

5P 



5 put size of passed paraoster list 
.into HL and adjust stack 



h»-l 5 return error value 



savcnts is I 

ENDFUMC 



?save ars count here 



FUNCTION 
call 
xehs 
1 hid 

push 

dad 

jc 

dcx 

xcns 

Ihld 

mov 

cnta 

mov 

JBOV 

cia 

ffiOV 

inx 
dad 



writ oh 

allocp 

h 

d 

brkerr 

h 

alocffix 
a«h 

h>a 
a?l 

ha 
h 

SP 



sbrk 

'get # of bytes needed in Hi. 

?put into BE 

?set current allocation pointer 

J save it 

»get tentative last address of new stsaent 

•better not allow it to 30 over the top! 

• now last addr is in 0£ 
'set safety factor 
?nesate 



?set HL = (SP - alocsx) 



call cfflpdh Sis BE less than HL? 

jnc brkerr 'if not? can't provide the needed aesory. 

xchs Seise OK. 

inx h 

shld allocp Ssavs start of next area to be allocated 

pop h 'set pointer to this area 

ni ;and return with it. 



'clean up stack 

? and return with -1 to indicate can't allocate. 



brkerr! 


POP 


h 




Jip 


error 


OBPdh* 


my 


a>d 




CJ8P 


h 




re 






rnz 






fflOV 


a?e 




m? 


1 




ret 





FUNCTION rsvstk 

call isaltoh Sset the value to reserve 

shld alooax Sand set new safety factor 



SB Software C Standard library Machine Language Functions 
Written by Leor Zolaan 
vl.46, 3/22/82 

This file is in "CSM* for-nat! to convert to CRL fon&ati 

use CASH. SUB in conjunction with £ASN.C0H, ASM. COM and_DDT.COM. 

Functions appearing in this file'. 

rread rwrite rtell rseefc rsrec rcfsiz 
setJrop lonajisp 

setplot drplot line plot txtplot 
index setline 



The randos>-recor-d file I/O function contained here are NOT documented 
in the User's Guidei because they art non-portable to pre-2.0 CP/fl 
Svsteas. 



i&aclib bds 



Hsre are the new randor-access file I/O routines 
for use with CP/M version 2.x fJCY... these functions 
will NOT work under pfe-2.x CP/H's. 

The new functions are* Tread* rwrite* rtell* rseefc* 
rsrec» rcfsiz 



Rread* 

Read a nui&ber of sectors random} v. 
Usage? 

i = rreacKfdi buf* n)» 

The return value is either the masher of sectors successfully 
read, for- EOF, or 1000 + (BDOS ERROR CODE) 

The Random Record FU]^ is incremented following each succsssful 
sector is r-ead> Just as if ths noraial (sequentail) read function 
were beins used. Rseek jnust be used to so back to a previous 
sector. 



FUNCTION rread 


call 


arshak 


Ida 


arsi 


call 


fsfd 


Jc 


error 


ffiOV 


a«i 


ani 


i. 


JZ 


error 



push b 

Ida arsl 

call fsfcb 

shld tm2 

Ixi h,0 

shld t»p2a 

r-2: lhld ars3 

ffiov a>h 

ora J 

lhld t»p2a 

Jnz r2a 

pop b 
ret 

r2a? lhld ars2 
xchs- 

mi c>sdffla 

cal 1 bdos „ 

lhld t»p2 
xchs- 

ravi oreadr 'cods for BDOS random read 

push d 'save de so m can fudse nr field if 

call bdos 'm stop reading on extent boundary... 

pop d ! CP/M sacks! 

ora a 

J2 r4 fso to r4 it no problem 

cpi 1 

iz r2b ?£0F? 

i&ov c>a ?put return error code in BC 

mi b»0 

Ixi h.1000 iadd to 1000. 

dad b 

pop b 
ret 

r-2bi Ixi h**32 Jves. are w on extent boundary? 

dad d 

ffiOV a? 8k 

cpj SC*h 

Jnz r3 

avi BiO ?yes. reset nr to 0...CP/N leaves it at SO! 

r3: lhld t»p2a '(note? the above "bus" in CP/N »as supposedly fixed 

pop b J for 2.x j but one can never- be sure...) 
ret 

r-4; lhld ars3 

dcx, h 

shld ars3 

lhld ar-32 

Ixi d»128 

dad d 

shld ars2 

lhld t«fip2a 

inx h 

shld tip2a 

lhld t»p2 ?fet address of fcb 

Ixi b»33 fs-et addr of random record field 

dad b 

isov CjIS ibUffiP 

inx h * value 



mov 


h*ffi 


inx 


b 


mov 


Hub 


dcx 


h 


BOV 


ITuC 


j»p 


r2 


ENBFUNC 





of 



random 



field 



by one 



Ruritei 

The random "write* routine* which always copies the sector 
to be written down to tbuff before writing. Returns 
the # of sectors successfully written or -i on hard error, 
{the "1000 + error code" business is not used for write) 



FUNCTION rwrite 



call 

Ida 

call 

Jc 

mov 

ani 

jz 

push 

Ida 

call 

shld 

Ixi 

shld 

lxi 

mvi 

call 



arshak 

arsl 

fsfd 

error 

a* ft 

4 

error 

b 

arsl 

fsfcb 

tB>p2 

h,0 

trap2a 

d, tbuff 

CiSdM 

bdos 



for nor sal CPM, else 428(5 



n»2i 



Ihld 

mov 

ora 

Ihld 

inz 

POP 

ret 



ars3 

a 3 h 

1 

t»p2a 

nwr2a 

b 



'done vet? 



?if so» return count 



nwr-ias 



nwr3* 



Ihld 

lxi 

mvi 

BOV 

stax 

inx 

inx 

dcr 

jnz 

shld 

Ihld 

xch3 

ivi 

call 

ora 

Ihld 



ars2 'else copy next 128 bytes down to tbuff 
d, tbuff ;80 for normal CP/fo else 4280 



a?ii 

d 

h 

d 

b 

nwr-3 

ars2 

tw»2 



;save -> to next 128 bytes 
'fet ad$r of fcb 



Civritr ?3o write randomly 

bdos 

a ? error? 

tmp2a *if so? return # of successfully written 



pop b * sectors, 

rnz 

push b 

inx h " else bu»p successful sector count: 

shld ti»p2a 

! hid ars3 * deburap countdown* 

dcx h 

shld ars3 

1 hid tap2 ? set address of fcb 



)xi. 


b»33 


• 


set ^didnss of random field 


dad 


b 








raov 


c»»n 


m 


bu»p 


16-bit value at random 


inx 


h 


* 
J 


record 


fftOV 


b»K 


* 
1 




field 


inx 


b 


M 




of 


iriov 


■ib 


* 




fcb 


dcx 


h 


• 
5 




by one 


ffkOV 


■iC 








jirp 


n«r2 


• 
J 


and 


go try next sector 


ENDFUNC 











rseefc: 

rseefcCfdj offset* origin) 

seeks ta offset records if origin = 0? 
to present position + offset if orisin *» i> 
or to end. of file + offset if orisin = 2. 
(note that in thi last case* the offset sust be non-positive) 



FUNCTION mak 




call 


arshak 




Ida 


arsl 




call 


fsfcb 




Jc 


error 


m 


push 


K 




call 


rte!12 




lhld 


ars2 




Ida 


ar-93 


J is orisin s = 0? 


ora 


a 




J2 


rseek2 


?if sot HL holds new position 


dcr 


a 


?no. is orisin = 1? 


JftZ 


rseeki 




dad 


d 


Ives, add offset to current position 


jap 


rseek2 


"and result is in HL _ 


rseekl* pop 


d 


"else orisin lust be 2... 


push 


d 




push 


b 




mi 


ocfsiz 


c 'compute end of file position 


call 


bdos 




FOP 


h 




POP 


h 


?set back fcb 


push 


h 





call rte!!2 'set D£ = position 

lhld ars2 Jadd offset 

dad d "and HL holds new position 



rseek2." 


xthl 




iset fcb» push new position 




Ixi 


d,33 






dad 


d 


?HL points to random field of fcb 




POP 


J 


»set new position in DE 




mov 


R»e 


Sand put into fcb 




inx 


h 






iriov 


ffud 






xchs 




5 and return the position value 




ret 






rte!12: 


Ixi 


di33 






dad 


d 






fflOV 


era 






inx 


h 






IftOV 


d>m 






ret 








ENDFUNC 







Rtell: 

Return random record position of file! 



RUCTION rtell 

call ar|hak 

I da ... ar si 

call fsfcb 

•j c error 

Ixi dt 33 "so to randoa record field 

dad d 

jaov etfft * set value into f£ 

inx h 

Bi0V djffJ 

xchs ?put into HL 

OI0FUNC 



Rsrec! 

Set randw field froa serial access ©ode! 



FUNCTION rsrec 

call arshak 

Ida arsl 

call fsfcb 

Jc error 

push h 
xchs 

push b 

isvi Cisrrecc 

cal 1 bdos 

pop b 

fop h 

Ixi d»33- 

dad d 

ROY a j 8k 

inx h 



ffiOV 


thift 


moy 


ha 


ret 




EMDFUNC 





Rcfsiz: 

set random record field to end-of-file.* 



FUNCTION 


rcfsiz 


call 


arshak 




Ida 


arsi 




call 


fsfcb 




JC 


error 




push 


h 




xchs 






push 


h 




QVl 


Cjcfsiz 


c 


call 


bdos 




POP 


b 




POP 


h 




Ixi 


d,33 




dad 


d 




BOV 


a>si 




inx 


h 




B6V 


M 




»OV 


ha 




Tit 






ENBFU1C 




FUNCTION 


setjap 


call 


Mltoh 




sov 


IfiiC 


?save BC 


inx 


h 




ITiOV 


®>b 




inx 


h 




xchs 






Ixi 


h,0 




dad 


SP 




xchs 






»ov 


18? S 


"save S"F 


inx 


h 




fflOV 


M 




inx 


h 




POP 


d 


fsavt return addres 


push 


d 




jnov 


ffu* 




inx 


h 




ffiOV 


$;d 




Ixi 


h.O 


•and return 


Tit 

enormc 






FUNCTION 


lons-iftp 


call 


^altoh 


"set buffer address 


mev 


CiffJ 


"restore BC 


inx 


h 




JTiOV 


bjJS 





tefflp! 



MX 


h 


rcov 


Si» 


inx 


h 


roov 


d>ffi 


inx 


h 


shld 


temp 


call 


o»2toh 


xchs- 




sphl 




FOF 


h 


Ihld 


teiBP 


mov 


a>rc 


inx 


h 


ITfOV 


HjIB 


IBOV 


ha 


xchs__ 




push 


d 


ret 




ds 2 




ENDFUNC 





* restore SP... first put it in BE 



?save pointer to return address 

'set return value 

•put return val in DE» old SP in HL 

> restore SP uith old value 

'pop retur address off stack 

'set back ptr to return ^6nss 



?HL holds return address 

?put ret addr in BE? set return value in HL 

?push return address on stack 

'and return... 



FUNCTION 



setplot 



call 


ars-hak 




push 


b 




Ihld 


arsl 


"set base address 


shld 


phase 


initialize 


Ihld 


ars3 


5 set y size 


shld 


vsize 


' initialize 


xchs 




? leave it in BE 


Ihld 


ars2 


'set x size 


shld 


xsize 


• initialize 


call 


USffiUl 


•fisure out screen size 


shld 


psize 


' initialize 


POP 


b 




ret 






ENDFUNC 







FUNCTION 



clrplot 






Ihld 


psize 


put jcreen size 


xcbs 




in BE 


jhid _ 


phase 


set screen base in ML 


ifivi 


»»' •' 


and 


inx 


h 


clear- 


dcx 


d 


each 


ROV 


a,d 


location 


ora 


e. 


i tall BE of 


jnz 


clr-2 




ret 






ENDFUNC 






FUNCTION 


line 


call 


arshafc j 


set arss 


push 


b 




Ida 


ars2 


fput one set of endpoint d 


ffiOV 


C»ji 


f orf&at* B » x - arsis E s 


Ida 


ars3 




GOV 


b>a 




mov 


d,b 




JftOV 


e»c 





E s y = ars3 





call 


put 


* put up one endpoint at BC 




Ida 


ars4 


"put other endpoint data in HL 




MV 


c*a 






Ida 


ars5 






IftCV 


b»a 






call 


put 


»(but first put up the point f 




BOV 


h>b 






BOV 


l,c 






call 


liner 


?now connect them... 




POP 


b 






ret 


.... 


jail done. 


linerJ 


ffiOV 


a?d 






sub 


h 






call 


abs 






cpi 


*> 






Jnc 


lin*2 


?are points far enoush apart 
sin both dimensions to warrant 




»ov 


a»e 


Jdrawins a line? 




sub 


1 






call 


abs 






cpi 








jnc 


lir»«2 






ret 




?if not? return. 


1 ine2: 


call 


fflidp 


.find midpoint 




call 


put 


"put it up 




push 


d 


? set \if recursive calls 




BOV 


d.fe 






ROV 


e»c 






call 


liner 






xth! 








call 


1 iner 






xchs 








POP 


h 






ret 




»and m are done! 


EJidP* 


push 


h 


«•»..- 




push 


d 






»ov 


a»h 






sub 


d 






ani 


i 






JZ 


roid3 






(BOV 


a>h 






CUP 


_.i.'.:' ; 






JC ... 


aid2a 






inr 


d 




- 


imp 


side? 




aid2a: 


dcr 


h 




I8id3s 


BOV 


a?l 






sub 


e 






ani 


1 






Jz 


mi 6$ 





aov a* 1 





JC 


aid& 




inr 


e 




mp 


iaid4 


uid3a! 


dcr 


1 


«8id4: 


a>ov 


a>h 




add 


d 




ora 


a 




rrc 






aov 


b»a 




aov 


a.l 




add 


e 




ora 


a 




rrc 






ROY 


da 




POP 


d 




pop 


h 




ret 




put: 


push 


h 




push 


d 




aov 


a?b 




lhld 


vsize 




xchs 






lhld 


pbase 




inr 


a 


put is 


dcr 


a 




J2 


?ut2 




dad 


d 




Jap 


Pttti 


FUt2? 


■ov 


e 5 c 




iijvi 


d:0 




dad 


d 




Ida 


arsl 




10V 


ff»j4 




POP 


d 




POP 


h 




ret 




afcs: 


ora 
c»a 


a 




inr 


a 




ret 






BffiFUNC 






FUNCTION 




call 


arshak 




Ida 


arsl 




lhld 


ysize 




XCh3 






lhld 


pfease 




inr 


a 


Flotis' 


dcr 


a 




42 


plotc 




dad 


d 




JfflP 


plot! 



plot 



plotc? Ida 


ars2 


ffiOV 


e 5 a 


»vi 


d,0 


dad 


d 


Ida 


ar-s3 


BOV 


n>a 


ret 




0HJRJNC 




FUNCTION 


call 


arshak 


push 


b 


Ihld 


ars2 


xchs 




Ihld 


vsize 


call 


usisu) 


xchs 




Ihld 


ars3 


dad 


d 


xchs 




Ihld 


phase 


dad 


d 


xchs 




Ihld 


arsi 


ffivi 


b,0 


Ida 


ars4 


ora 


a 


42 


txt2 


mi 


b>80h 


txt2s raov 


asiB 


ora 


a 


■iTil 


txt3 


POP 


h 


ret 




txtSs ora 


b 


stax 


d 


inx 


h 


inx 


d 


imp 


txt2 


ENDFUNC 





txtplot 



Index (strssubstr) 
char *stri *substr* 

Returns index of substr in str* or -I if not found. 



FUNCTION index 





call 


arshak 






Ihld 


arsi 






xchs 




iiain str ptr in IE 




Ihld 


ars2 


"substr Ptr in HI 




dcx 


d 




index! ! 


inx 


d 






ldax 


d 


;«nd of str? 




ora 


a 






jm 


index2 






Ixi 


fb~i 


»y«« not found. 



ret 
indexi'J cap 
jnz 
push 
push 
indexes inx 
inx 

fflOV 

ora 
jnz 

POP 

pop 

Ihld 

call 

dad 
ret 



indexi 

d 

h 

h 

d 

aiiB 

a 

in dex4 

d 

d 

arsl 

cn>h 

d 



•quick check for dissimilarity 
Hoop if not saise risht here 
•else do Ions compare 



iend of substr? 

"if not » so on testing 

'else matches 

"set star-tins address of substr- in BE 

r subtract besinnins of str 

'and return the result 



index4: Idax 
crop 
jz 

POP 
POP 

jip 



index3 
h 
d 
indexl 



EM3FUNC 



'current char aatch? 

?if SO7 keep testing 

•else so on to next char in str 



? Get1in«(5tr>1ii} 
* char *str* 

; Gets a line of Uxt fross the console? up to 'lis' characters. 



FUNCTION 



set line 



copy! J 



push 


h 




call 


sa3toh 


5 set sax no. of chars 


aov 


c>a 


fsave injC . t 


call 


na2toh 


!set destination address 


push 


h 




Ixi 


h»-150 


•_use space below stack for- reading line 


dad 


SP 




push 


h 


;save buffer address 


aov 


B*C 


"Set saax # of characters 


svi 


Cssetlin 


xchs 




•put buffer addr in ££ 


call 


bdos 


•set the input line 


svi 


C:Conout 


mi 


e,lf 


Iput out a If 


call 


bdos 




POP 


h 


'set back buffer address 


inx 


*» . 


? point to returned char count 


aov 


b?3i 


'.set B e*sual to char count 


inx 


h 


;HL poinds to first. char of line 


POP 


d 


;B£ points to^start destination area 


aov 


c,b 


•save char count in C . 


ssov 


a*h 


'copy line to start of buffer 


ora 


a 




H 


sets2 




aov 


a»fff 




stax 


d 




inx 


h 





inx 


d 


dcr- 


b 


jfflp 


copy! 


xr a 


a 


s tax 


d 


IBOV 


l,c 


ffivi 


hiO 


FC«P 


b 


ret 




EMDFUNC 





3ets2s xra a 'store terminating null 
'return char count in HI 



/* LCHECK by Richard Cw»> 

LCHECK displays te the »ser the nestins level number of each 
BEGIN/END <(/>) group* thereby helpiiw him to identify problea areas 
in his C prosrats. It recognizes quoted tateria I and consents and 
ignores { and ) within these. 



#define vers 
tinclude 



12 /* Version NuRber */ 
"asbdscio.h" 



idefine SSCRtXL TRUE /* Set TRUE for Stoooth Scroll ins on M 950 */ 

#define quote 0x27 /* Sinsle fiuote */ 
ildefine d«?uote 0x22 /# Double Quote #/ 



tdefine BS 


0x08 


/* Back Space Char #/ 


#define TAB 


0x09 


/» Tab Char */ 


#define LF 


0x0a 


, /* Line Feed Char #/ 


#define CR 


OxOd 


/* Carriage Return Char */ 


tdefine YES 


/ Y / 




tdefine NO 


'N' 





tdefine ovfl YES 
tdefine noovfl NO 



/'* Line Overflow */ 
/* No Line Overflow */ 



char iobufCBUFSIZl; 

int levels chval» posr nroutines* 

aain(arsc»ar3v) 
int arse? 
char **am> 
{ 

int done? 

if (arse == 1) .£ 

FrintfCICHECK, Version Xd.Xdto'Svfirs/iOtversXiO); 
printffTonnat of Cos&and Line is — \n">» 
printfC* LCHECK filenaM.tYP*)? 
exit(FALSE)? 

•s. 

J 

if (fopenUrsvUldobuf) « ERROR) { 

?rintf( "Cannot Find File 'is\n ! Sarsv[13)' 
exit(FALSE)? 



if (SSCROLL) printfCXcXcSESC'S')? /* Smooth Scroll */ 
printf ("LCHECK, Version Xd.'id — File: XstoSvers/lO, 

versXiOjarsvClD? 
level a 0? nroutines - 0? /* Init nesting level? routine count */ 
prlevelO* /# Print level number «/ 
do { 

getitO; /f Get next char */ 

if (chvat = quote) do £ /* If quotes flush to end quote »/ 
■setitOJ 
} labile C chval != quote)' 
if (chval as dquote) do C 7* If dsuote* flush to fcuote */ 
setitO* 
■ > sshile (chval !* dquote)? 
i^ (chval = '/') { /# Possible consent */ 
setitO' 



if (chval = •'*-') C /* Yesj it is a cwaaent */ 

SetitO? 

done = FALSE? 
do { 

if (chval == '*') { /* End coraent? *J 
setitO; 

if (chval == ■'/■') /# Yes «/ 
done = TRUE? 

else fetitO? 
} while (!done)? 



if (chval ~ '{') IrnlH! /# BEGIN */ 

if (chval = '}') C /* END #/... 

lev*!— 5 

if devei = 0) ( 

nroutines++? 

printf<"\n*# Routine 1A *#"* nroutines); 



> while ((chval != CPrCOF) %k (chval !* ERROR))? 

printf( u \nPro9raa Level Check is ■); 
if (level =0) printfC'OK")? 
else printfCNOT OK")? 
print fC^nNuaber of Routines Encountered? %d*»—nroutine$)5 
if (SSCRQLL) printfCXcXc'SESCi'?')? /* Hard Scroll */ 



* 



3etit() /* Get and Echo Character */ 
C 

chval - petc(iobuf)? 

if «pos >= TWIDTH) & (chval !« CRJ) prlevel(ovfl)? 

if (chval != CPHEOF) echo(chval)? 



echo(chval) /* Echo Char with tabulation */ 

char chval? 

C 

switch (chval) { 

case TAB ? put char (' ')! post+S 
while <posX9 ?= 0) t 
putcharC •'*)? 
FOS++; 

break? 
case £8 : putchar(BS); 

pos--? 

break? 
case LF ? prlevel(noovfl); 

break? 
case CR : Putchar(CR); 

pos = 0? 

break? 
default i if (chval >= ' ') C 
putchar( chval)? 

PCS+4-? 

\ 

break; 



> 



Frlevel (ovf l.f las) /* Print Uvsl Nu»b*r and Sst Co! Count #/ 

char ovfLflas' 

{ 

Futcbar(LF); 

if U*vel < 10) printtt" XdMeve!)! 
else printf("MMevel)j 

if (evfLfla? == YES) putchar ('-')! 
else FutcnaM •'!')* 

putcharC ')• 

pos = 5; 



•The segraent is now aoved to high aeaoryj but not 
jproperlv relocated. The bit table which specifies 
iwhich addresses need to be adjusted is located 
J just after the last byte of the source segment, 
?so (WL) is now pointins at it. 

POP ? besinnins of newly aoved code, 
LXI 8»SEGL£N? length of sesoent 
PUSH H ?save pointer to reloc info 
HOV H»D 'offset page address 

FIXLOOP: 

Scan through the newly aoved code* and adjust any 
page addresses bv adding <H) to the*. The word on 
top of the stack points to the next byte of the 
relocation bit table. Each bit in the table 
corresponds to one byte in the destination code. 
A value of 1 indicates the byte is to be adjusted. 
A value of indicates the byte is to be unchanged. 

Thus one byte of relocation inforsstion serves to 
s»rk 8 bytes of object code. The bits which have 
not been used yet are saved in t until all 8 
are used. 



MOV 


A,8 




ORA 


C 


?test if finished 


JZ 


FIXDONE 




OCX 


B 


» count down 


MOV 


A,E 




AMI 


07H 


Jon 8-byte boundry? 


JNZ 


NEXTBIT 




NEXTBYTs 






'Sit another byte of relocation bits 


XTHL 






HOV 


A,ft 




INX 


H 




XTHL 






MOV 

* 


L,A 


"save in register L 


NEXT8ITM0V 


A,L 


•regaining bits froa L 


RAL 




snext bi\ to CARRY 


HOV 


L,A 


•save the rest 


JNC 


NEXTABR 





SCARRY was = i. Fix this byte. 
LDAX D 



H UH) is the page offset 



STAX 



NEXTADR INX B 

JMP FIXLOOP 

■ 

FIXDQNEs 

Finished. Jurp to the first address in the new 
sesnent in high aesory. 

First adjust the stack. One garbage word was 
•left by fix! oop. 
INX SP 



INX 



HHL) still has the pas* address 

MOV L»A "sove zero to 1 
PCHL ? Stack is valid 

SETUP* 

?Anv one-shot initialisation code goes here, 



LXI 


H.NGLOAB 




SHLD 


CCPIN+i 


{Prevent reentry 


CPH 


VER 


'Test version of CP/ft in use 


CPI 


20H 


? 2.0 or better? 


X 


wrm 


"No* bitch and wit. 



CALL REPARS 





LXI 


D,MEHB£R+9 


?Check Beaber filetype 




LOAX 


D 






CPI 


/ / 


;If blanks 




BLKHQV 


,C0HLIT,3,2 


J default to COM. 


» 


LXI 


D,LBRFIL+9 


"Check library filetype 




LOAX 


D 






m 


.' / 


?If blank, 


■ 


8LKH0V 


S LBRLIT,3 S 2 


! default to LBR 


» 


LXI 


0,L8RFIL+1 


s Check nane 




LOAX 


D 






CPI 


/ / 


'If blank* 


• 
I 


BLKHQV 


,BFLTNAM,8,Z 


t use default naae* 


J 

OIROPNJ 


CPH 


GPN,L8RFIL 


?0pen for directory read, 




INR 


A 


? Was it found? 




JNZ 


MROK 


»Y€5> Ok 




LXI 


H.LBRFIL 


JNo» test drive spec 




MOV 


A.H 


? to see if it's 




ORA 


A 


• explicit 




JNZ 


NOBIR 


"It is explicit. Out of luck 




INR 


N 


•It mas defaulted. Look on As 




uMP 


DIROPN 


' before sivins up, 



Re-parse co»sand line 



CPH OMAJBUFF 



FINDMBRs 



CPH 


FRD,LBRFIL 


ORA 


A 


JNZ 


FISHY 


LXI 


H,TBUFF 


NOV 


A.H 


ORA 


A 


JNZ 


fishy 


mi 


B,8+3 


NVI 


A," ' 


VALIDLOOP: 




INX 


H 


CNP 


H 


JNZ 


FISHY 



?Read the directory 
"Eaptv file? Oive up. 



"Directory not active?? 
"Check for blanks 



JNZ VSALISLOOP 



LHLD 
MOV 
ORA 
JNZ 

a 


TBUFF+1+8+3 

A,H 

L 

FISHY 


5 Index must be 0000 


LHLD 

DCX 

PUSH 


TBUFF+1+8+3+2 

H 

H 

FINBNBRN 


5 Get directory size 
•We already read one. 
?Save on stack 
»Ju»p into loop 


rllWnofU.* 

POP 

HOV 

ORA 

JZ 

DCX 

PUSH 

CPM 

ORA 

JNZ 


H 

A,H 

L 

NOMEMB 

H 

H 

FRB,LBRFIL 

A 

FISHY 


•Read sector count froa TOS 

SO? 

.Meiber not found in library 

» Count down 

?and put it back. 

1 Get next directory sector 


FINDMBRN* 
LXI 
MVI 


H.T8UFF 
C, 128/32 


•Point to buffer, 

JNuaber of directory entries 


FINDMBRl! 

CALL 
JZ 
DCR 
JZ 

* 


COMPARE 
GETLOC 
C 
FINDMBRL 


•Check if found yet. 
•Found fidiitber in .DIR 


LXI 
DAD 
JMP 


D»32 

D 

FINDMBRl 


'No »atchj point to next one 



OETLOC: 'The nase was found now set index and length 
POP B SClear stack sarbase 
XCHG SPointer to sector address. 



mqv 


E,M 


?Get First 


im 


H 




MOV 


D,M 




XCHG 






SHLD 


INDEX 


'Save it 


XCHG 






INX 


H 


'Get Size to 


MOV 


E,M 




INX 


H 




MOV 


D.M 




XCHG 
SHLD 


LENX 


? Size to HL 


CALL 


PACKUP 


•Repack comb 


CPM 


CON,CR 


•do <cr>. onl' 


RET 








End of setup. 


Utility subroutines 






IDE = -DE 


MOV 


A,D 





cm 




NOV 


B,A 


MOV 


A,£ 


cm 




MOV 


£,A 


m 


B 


RET 





REPARSE re-parses the fcbs froa the cor&aand line* 
to allow the "-" character to prefix the library naae 



REPARS: 


LXI 


D.MEMBER 


» first reinitialize both fcbs 




CALL 


NITF 






LXI 


B.LBRFIL 






CALL 


NITF 






LXI 


H,TBUFF 


•store a null at the end of 




MOV 


E,M 


" the cosaand line (this is 




mi 


D,0 


» done by CP/M usual Wi except 




XCHG 




• in the case of a full co»- 




DAD 


D 


; sand line 




INX 


H 






MVI 


M,0 






XCHG 




"thuff pointer back in hi 


SCANBK: 


INX 


H 


»bu»p to next char position 




MOV 


A,M 


J fetch next char 




ORA 


A 


{reached a null? (no arsuients) 




JZ 


HELP 


? interpret as a call for help 




CPI 


/ / 


•not null? skip blanks 




JZ 


SCANBK 






CPI 


/_/ 


? library naae specifier? 




JNZ 


NOTLBR 


•skip if not 




INX 


H 


Jit is* skip over flas character 




LXI 


D,LBRFIL 


•parse library naae into FCB 




CALL 


GETFN 




NOTLBRs 


LXI 


DUMBER 


•now parse the coaaand naae 




CALL 


GETFN 






LXI 


D,HOL0+1 


•pnt to teiip storase for rest of OBd 1 in 




MVI 


B,-l 


•in it a counter 


CLSAVEi 


INR 


B 


•buap up counter 




MOV 


A,H 


; fetch a char 




STAX 


D 


Ssove it to hold area 




INX 


H 


•buap pointers 




INX 









ORA 


A 


?test whether char was a terainator 




JNZ 


CLSAVE 


'continue aovins- line if not 




MOV 


A»B 


sit was? set count 




STA 


HOLD 


•save it in hold area 




RET 







PACXUP retrieves the coaaand line stored at 
HOLD and toves it back to tbuff* then reparsss 
the default file control blocks so the coaaand 
will never know it was run froa a library 

PACKUP: LXI H,HGLD Jpoint to lensth byte of HOLD 

MOV CM ?set lensth in BC 

MVI B,0 

INX B ?bu»p up to because lensth byte doesn't 

INX B f include itself or null teninator 



BLKWOV 


TBUFF 


.aovins everybody to Tbuff 


LXi 


H.TBUFF+1 


'point to the coaaand tail 


LXI 


B.TFCBi 


.first parse out tfcbi 


CALL 


GETfN 




LXI 


B.TFCB2 


Jthen tfcb2 


CALL 


getfn 




RET 







Here when HELP is revested (indicated 
by LRUN with no arguaents) 



Hap: 
EXIT? 


CPH MSO.HLPHSG 
LHLB SPSAVE 
SPHL 
RET 

the HELP aessase 


» print the HELP message 
.find CCP re-entry adrs 
.fix & return 


HLPMSG! 


DB CR.LF. 'Correct syntax isi' 

DB CR.LF 

0B LF.TAB.'LRUN C~<lbrnaaa>3 <coaaand line 



BB CR.LF 

138 LF. 'Where <lbrnaae> is the optional library nans' 

BB CR.LF.MNete the preceding B - H . ) If omitted, ' 

BB CR.LF. 'the default coaaand library is used.' 

BB LF 

W CR.LF. '{coaaand line) is the naae and paraaeters' 

BB CR.LF. 'of the coaaand being run from the library.' 

08 CR.LF. 'just as if a separate .COM file were being run.' 

BB CR.LF,'*' 



CONPARE: 



PUSH 
HVI 
XCHG 
LXI 

t 

LBAX 

CHP 

JKZ 

INX 

INX 



M 
CONPEXIT: 
POP 
RET 



H 
B.i+8+3 

H.rCHBER 

B 

M 

CQhPEXIT 

B 

H 

B 



.Test status, naae and type of 
»a directory entry. 



?with the one we're 
.looking for. 



?Return with BE pointing to 
.last Batch + 1. and HL still 
Jpointins to beginning. 



File naae parsing subroutines 

getfn gets a H)i naae froa text pointed to fey res hi into 

an fcb pointed to by reg de. leading deliaeters are 

ignored. 

entry hi first character to be scanned 

de first byte of fcb 
exit h! character following file naae 



GETFNs 



CALL 


GSTART 


R2 




CALL 


GETDRV 


CALL 


6ETPS 


RET 





sinit 1st half of feb 

?scan to first character of naoe 

?end of line was found - leave feb blank 

» set drive spec, if present 

'set pri&arv and secondary naae 



nitf fills the feb with dflt info - in drive field 
all-blank in nane field* and in ex»sl»s2 and re fids 



NITF: 


PUSH 





•save feb loc 




XCH6 




iaove it to hi 




HVI 


M,0 


•zap dr field 




INX 


H 


•bu»p to na»e field 




NVI 


B>11 


!zap all of nasM- fid 


NITLPi* 


HVI 


M,' ' 






INX 


H 






DCR 


B 






JNZ 


NITLP1 






ttVI 


B.4 


•zero others 


NITLP2: 


HVI 


H,0 






INX 


H 






DCR 


B 






<M1 


NITLP2 






XCHG 




J restore hi 




POP 





* restore feb pointer 




RET 







sstart advances the text pointer (res hi) to the Hrst 
non deliiiter character (i.e. isnores blanks), returns a 
flas if end of line (OOh or 'i') is found while scanins. 
exit hi pointing to first non delimiter 

a clobbered 

zero set if end of line ms found 

GSTART? CALL CCTCH ?see if pointing to deliis? 



RNZ 




»nope - return 


CPI 




J end of line? 


R2 




iyup - return w/flas 


m 


A 




m 




?yup - return w/flas 


INX 


H 


>nope - tove over it 


JHP 


GSTART 


Jand try next char 



setdrv checks for the presence of a drive spec at the text 
pointer > and if present forsats it into the feb and 
advances the text pointer over ii. 
entry hi text pointer 

de pointer to first byte of feb 
exit hi possibly updated text pointer 

de pointer to second (primary naia) byte of feb 



•point to naae if spec not found 
•look ahead to see if 'i* present 



s INX 


D 


INX 


H 


WBV 


A*ft 


OCX 


H 


CPI 


i*i 



•put back in case not present 
!is a drive spec present? 



RNZ 




5 nope - return 


MOV 


A,H 


?yup - set the ascii drive naas 


SUI 


'A'-i 


•convert to fcb drive spec 


DCX 


D 


? point back to drive spu bvte 


STAX 


D 


•store spec into fcb 


INX 





•point back to naae 


INK 


H 


•skip over drive naas 


INX 


H 


•and over ':' 


RET 







getps sets the priaary and secondary names into the fcb. 

entry hi text pointer 

exit hi character following secondary nams (if present) 

'max length of primary naie 
.pack primary naae into fcb 
? see if tersinated tor a period 

»nope - secondary name not given 
5 return default (blanks) 
?yup - move text pointer over period 
I yup - update fcb pointsr to secondary 



GETPS! mi 


C,3 


CALL 


GETNAH 


«0V 


A,M 


CPI 


* / 


mi 




INX 


H 


FTPOINTiHOV 


A,C 


ORA 


A 


J2 


6ETFT 


INX 


D 


OCR 


C 


Jff> 


FTFOINT 


GETFTJ m 


C.3 


CALL 


getnah 


RET 





•»ax length of secondary naae 
•pack secondary name into fcb 



getnam copies a name fro© the text pointer into the Hh for 
a given aaxiaua length or until a delimiter is found? which 
ever occurs first, if sore than the aaxiaua number of 
characters is present* characters are ignored until a 
a deliaiter is found, 
entry hi first character of naae to be scaned 

de pointer into fcb naae field 

c aaxiaua length 
exit hi pointins to terminating deliaitar 

de next eapty byte in fcb naae field 

c aax length '- nuaber of characters transfered 



?are ue pointing to a delimiter yet? 

?if so» naae is transfered 

•if not? move over character 

Jaobigious file reference? 

•if so? fill the rest of field with • 

•if not? just copy into naae field 

• increment naae field pointer 

Jif naae field full? 

.nope - keep filling 

•yup - ignore until deliaiter 

ifill character for wild card aatch 

•fill until field is full 



•fall thru to insore rest of naae 
•pointing to a deliaiter? 
j yup - all done 



GETNAH? 


CALL 
R2 


GETCM 




INX 


H 




CPI 


'*' 




JZ 


mm 




STAX 


D 




INX 







OCR 


c 




M 


GETNAH 




JHP 


GETIEL 


mim 


mi 


A.'?' 


QFILL: 


STAX 







INX 







m 


c 




M 


8FILL 


GETDEL* 


R2 


getch 



INX H 'nope - i snore antoher one 
JHP GETBEL 

setch sets the character pointed to dy the text pointer 
and sets the zero flas if it is a deliniter. 
entry hi text pointer 
exit hi preserved 

a character at text pointer 

z set if a deliaiter 

GETCH? 

NOV A»H ?set the character 



CPI 


• 


RZ 




CPI 




RZ 




CPI 


> 


RZ 




CPI 


.' / 


RZ 




CPI 


.*! / 


RZ 




CPI 


*'«•' 


RZ 




CPI 


'C 


n 




CPI 


.<■%,/ 


RZ 




ORA 


A 'Set zero flag on end of 


RET 




? Error routines? 

• 


7 

BABVERs 




CALL 


ABEND 


DB 


'Can"t run under CP/H i.4' 


ntwin* 

cm. 


ABEND 


80 


'Library not found' 


DB 


'$' 


FISHY! 




CALL 


ABEND 


ob 


'Naae after "-" isn"t a library' 


w 


/$' 


NGHEHB* 




CALL 


ABEND 


OB 


'Coiaand not in directory' 


DB 


'*' 


NOLOAIi: 




cm 


ABEND 


DB 


'No prosrai in aetory' 


m 


'$' 


NOFIT! 




CALL 


ABEND 


DB 


'Profraa too large to load' 


DB 


/$• 


COHLITJ DB 


'CON' 


* 





J3FLTNAHSDB 'tmm ' ! <~ chanse this if you lite— 

LBRLIT: m 'LBR' 

* 

ABEND: 

CPM «SG,IC«LIN 

pop D 

CPH MSG 

CPM DEL, SUBFILE 

CPM MSG,ABTMSG 

Jrf> EXIT 

A8TMSG: DB ',.. ABORTED. t' 

ffiLWi m CR.LF.'*' 

SPSAVEs OS 2 ? stack pointer save 
5 

PAGE 
?AdJust location counter to next 256-bvte boundry 

€8ASE ORG <* + OFFH) AND 0FF00H 

fiRLBL SET 

S The sea&ent to be relocated soes here. 

? Anv position dependent (3-byte) instructions 

? are handled by the "R" macro. 

R OHLD LENX> ?Cet length of .COM seeber to load. 



MVI 


A.TPA/! 


120 


ADD 


L 


5 Calculate hishest address 


mov 


L,A 


sTo set if it will fit in 


ADC 

<3ffi 


H 
L 

H,A 


'available i&esory 


MOV 




REPT 


7 




DAD 

CMFM 


H 




twun 
XCHG 






CALL 


NEGBE 


sirs still i«Loy memory 


<LXI 


H,PR0TECD 


DAD 







JNC 


NOFIT 


jHaven't overwritten it vet. 



• The library file is still open. The open FCB has been 

* soved up here into hish aeaory with the loader code. 

R <LHLB IHBEX> ?Set up for randoi reads 
R <SHLB RANDOM) 
XRA A 

R <STA RAHB0H+2> 

« 

LXI H,TPA 
R <SHLD L0ADDR> 

» This hish aeBor-y address and above* including CCP? ©ust be 
? protected froi beins overlaid by loaded protrai 
PROTECT? 



'", 




'Load that sucker. 


OHLD 


LENX> 


.See if done yet. 


MOV* 


A*L 




ORA 


H 




<J2 


LOADED 




DCX 


H 





R 

R 

* 

R 

R 

■ 

R 
j 
ERR: 



<SHLD LEND- 

<LHLD LGABBR> 

MOV 0,H 

MOV £,L 

LXI B,80H 

DAD B 

<SHLD LOADDR> 

CPH BHA 



axi 

CPH 
ORA 
<JN2 



D,LBRFID 
RRD 
A 
ERR> 



<LHLD RANBOH> 

INX H 

<SHLD RANBQH> 

<JMP LGADLGOP) 



mvi 

STA 
LXI 
SHLD 



A, ( JHP ) 
TPA 
H,8G0T 
TPA+i 



llncretent for- next Urn 



[but use old value (BE) 



?Read the sector 

»No» bail out. 

'Increaent randoa record field 



JUntil done. 



jPrevent execution of bad code 



R 
R 
LOADED: 



<LXI 
CPH 

<lxi 

CPM 

CPfl 
CPM 



LDHSG* 

m 
index m 
lenx m 



w 



D.UWSD 
MS6 

D.SUBFILD 
DEL 

BMA,TBUFF 

CON.LF 

TPA 



?Abort SUBHIT if in prowess 



i Restore DMA adrs for user P3i 
J Turn up a new line on console 



CR,LF,'BABLOAD$' 







wm sub'10,0.0.0 

?If used» this FCB will clobber the following* one. 
»but it's only used on a fatal error? anyway. 



LBRFILs 



32 



;Naise placed here at setup 
SNoraal FCB plus... 
? {Nothing past here but OS's! 
•...Randoa access bytes 



OVERLAY SET $ 

RAi©QH DS 3 

HAXHEH DS 2 

LOABBR DS 2 

'End of sesaent to be relocated. 

IF OVERLAY £Q 

OVERLAY SET $ 



PAGES E8U 

J 

SEGLEN E8U 



<$-§BA$£fOFFW)/256+e 
OVERLAY-tBASE 



ORG iBASE+SEOLEN 
PAGE 





Build 1 


:he relocation ii 


iforaatien into a 


> bit table inediatelv following. 


§X 


SET 







SBITCNT SET 







€RLB 


SET 


??R1 




SNXTRLD SET 


2 




* 


RGRNO 


2§RLBL+i 


5 define one sore label 


» 


REPT 


SEGLEN+S 






IF 


«BITCNT>€RLD 






NXTRLB 


XMTRLD 


"next value 




ENDIF 








IF 


€BITCNT=€RLD 




«X 


SET 


SXOR 1 


Jaark a bit 




ENDIF 






tfilTCHT SET 


gBITCNT ♦ i 






IF 


SBITCNT MOB 8 = 


'0 




DB 


SX 




€X 


SET 
ELSE 


"clear 


hold variable for aore 


€X 


SET 
ENDIF 


€X SHL i 


?not 8 vet. aove over. 


« 


ENDM 






7 


DB 







HOLD: 


OB 


0,0 


!0 lengths null ten&inator 




BS 


128-2 


"rest of HOLD area 


MEMBER: 








« 


BS 


16 




5 


END 


CCPIN 





Line printer foraatter 

Written by Leor U\tm 
Hay 28» 1980 

First prints ait files nated on th« coMand line* and then 
asks for nates of tore files to print until a null line is typed. 
Control-9 aborts current printing and goes to next file. 

Paper should be positioned ready to print on the first pase? each 
file is always printed in an even nuafeer of pases so that new files 
always start on the sane phase of fan-fold paper. 

Tabs are expanded into spaces. 
♦/ 

#indude "bdscio.h 11 

♦define ft 0x0c /# for»feed character, or zero if not supported #/ 
♦define PGLEN 66 /* lines per lineprinter page */ 

int colno* lines I eft? 

aain(arsc»argv) 

char »*arsv» 

£ 

int i» pgno. fd* 

char- datet303* UnebufC1353? /* date and line buffers */ 
char fnbufC303» *fnaae? /* filenaae buffer & ptr §/ 
char ibuf£8UFSIZ3? /* hvftend input buffer */ 
char #setsC)J 

pgno « col no = OS 
linesleft = PGLEN? 
prints "What is today's date? ">? 
sets (date)? 



whi 


tie U> 


{ 






if (arsc-i) 




{ 




fnaae « *++arsv» 




arse—? 




} 




^)sn 



printf("\n£nter file to print, or C8 if done: ")? 
i^ (?*(fnaae = gets(fnbuf))) break? 



if ((fd = f©pen(fnaae,ibuf}y = ERROR) 
{ 

printfC "Can't open %s\n"jfnaise3* 
continue? 
> 
else printfCKnPrintins SHSsSfiaie)? 

for (psno * J? ? pgno-H) 
{ 



putchaH'#')? 

sprintf ( 1 in#buf » "\n\nX285*/--i35X5sX-3dX20s\n\^n% 

"file: "*fna»«j"pa9« "jpgnojdate)? 
lineprOinebuf)* 

loops if <!f9etsUinebuf7ibuf)) break" 

if (kbhitO && getcharO =0xli) break? 

if <linepr(linebuf)) continue? 

if (linesleft > 2) goto loop? 

forafeedO? 
} 

formfeed O? 

if (psno I 2) formfeed*)? 
fabort<fd)J 



/* 

Print a line of text out on the list device? and 
return true if a fcrafeed was encountered in the 
text. 

♦/ 

1 inepHstrins) 
char #string? 
{ 

char c> ffflas? 
ffflas * 0? 
while (c = *strins++) 
switch ic) ( 
case F?i 

ffflas = 15 
break? 
case '\n': 

put1pr("\r''}? 
putlpH'Vn')? 
col no » 0? 
linesleft— ? 
break; 

case '\t'J 
do C 

putJpr^ ')? 

colno++? 
} while koine % 8)? 
break? 

default? 

putlpr(c)? 

colno++* 
} 

if fffflag) for»feed(); 
return ffflas? 



putlpr(c) 
char c? 
{ 

bios(5*e)! 



fortfetdO 
{ 

if (FF) PutiFMFF)! 

*ls« white <lin«l*ft— ) FutJpM'Vn')? 

lineskft = P6LEH! 



> 



80S. LIB 



for BUS C vl.45 



October 14, 19*30 



Addresses within C.CCC and the ram area to be used by machine 
lansuase CRL functions. 

If you alter C.CCC bv reassei&blins CCC.ASM, be sure to so through 
this file and Rake sure all the addresses are equated to the 
appropriate values resulting frot the reassembly. Then the library 
functions will be ready to reassenble. 



pase 76 



EOU 1 



strue if running under CP/H5 else 



System addresses? 



if not cp» 

cccgrgs equ whatever 
rah: e6u whatever 
base: equ hhatever3 



endif 





if cp» 


base' 


equ OOOOh 


fcbs 


equ base+5ch 


tbuffs 


equ base+80h 


bdosi 


equ base+5 


tpa: 


equ base+lOOh 


nfcbs* 


equ 8 


errorvs 


equ 255 



cccorss equ tpa 



?IF NOT RUNNING UNDER CP/N, SET THIS TO LOAD .ABQR, 
5SET THIS TO RAM AREA, 

SAND THIS TO THE BASE OF SYSTEM MEMORY OBASE' IS 
?THE RE-BOOT LOCATION UNUER CP/H! FOR NOM-CP/M OPER- 
ATION, IT SHOULD BE SET TO A SAFE PLACE TO JUMP TO ON 
JERRQR OR USER-ABORT. 



5 either or 4200h for CP/M systeas 

•default file control block 

•sector buffer 

sbdos entry point 

•transient prosraa area 

Iffiax timber of open files allowed at one time 

'error value returned fey BSOS calls 

•where run-tii&e packase resides ^TESTING* 



rar»: equ cccors+47ih ?THIS MILL PROBABLY CHANGE IF YOU CUSTOMIZE CCC.ftSM 

|H«*HiHfWtWiHf«»tl»MH«ifiHfHWeTOIfii»M 

endif 



crs equ Odh 
If J equ Oah 
new 1 ins equ If 
tabs e«?u 9 
bss equ OGh 
entries «qu 3 



ASCII codes J 



carriage return 

linefeed 

new line 

tab 

backspace 

control -C 



Subroutines in C.CCC (the addresses should be that of the 
appropriate jubp vector entry points)! 



errors equ cccors+ldh 'return -1 in 



exits Mil error+3 'close all open files and reboot 



if cp» 
dose! eiu error+6 
setfcbs e«ju error+9 
fgfd* eiu error+12 
fgfcbs eiu error+15 

endif 



•set up fcb at HL fro© text at fl£ 

'set C according to whether file U is open 

•figure address of internal fcb for file fd 



eqwel* ««w cccorg+OeSh 



SiOd! 


e«w 


cccors+lOfh 




usfflod: 


e<w 


cccors+129h 




saul! 


e«iu 


cccorg+13fh 




U5»uU 


e«iu 


cccorg+16bh 




usdiv! 


e**u 


cccor9+189h 




sdivs 


e«w 


cccorg+icbh 




c»phd! 


equ 


cccors+lddh 




cans 


ew 


cccorg+ifah 




cad! 


e<*u 


cccors+202h 




aaltoh 


' equ 


cccors+20ah ' 


set 1st stack element into HI and A 


aa2tohi 


e<w 


cccorg+213h i 


2nd 


»a3tob 


s e«ui 


aa2toh+6 


3rd 


aa4toh 


equ 


aa2toh+12 ! 


4th 


aaStoh 


! e«*u 


aa2toh+18 


1 5th 


aa4toh 


eiu 


aa2toh+24 ' 


6th 


aa7toh 


i eiu 


aa2toh+30 


' 7th 



arshak! e«»u aa2toh*36 'copy first 6 or so stack eleasnts to arse area 
setdaa! equ cccors+460h ?set CP/H internal DMA pointer to BA$E+80h Ubuff) 



? The following addresses will depend on the value of P#t if you 

J custoaize CCC.ASM....be sure theY correspond to the asseably 

5 results of OX. ASH in such cases. If you reaove soae of the data 

? areas froa CCC'.ASM (in case theY aren't needed)? be sure to reaove 

• froa here also. 



org raa 
rooas ds 30 

pbase! ds 2 

vsizei ds 2 

xsize! ds 2 

psize* 4$ 2 

rseedJ ds 8 

arss! ds 14 

iohack! ds 6 

alloc?! ds 2 



?aisc. scratch area (for use by BOS'... you can have 
Jthe last ten bvtes or so* though* ii you really 
"need thea) 

*0MA video plotting base 
fscreen width (# of coluans) 
? screen length (# of lines) 
? screen size (vsize * xsize) 

•randoa nuaber seed scratch area 

•where arshak puts ars values off the stack 

Srooa for input and output ops for "in?" and "outp" 

? storage allocation pointer 



afocffix! ds 2 



•highest addr useable by storage allocator 



» This is the end of the user~custo»izable area. The retaining 
J equated values are not to he altered. 



Special locations in C.CCC containing interesting pointers! 



extrnsi equ cccors+15h 
cccsiz: equ cccorg+17h 
codend: equ cccorg+19h 

freraiBt equ cccorg+ibh 



base of external data area (set by CLINK) 

size of C.CCC for use by CLM only 

address of byte following last byte of prosraa code 

(set by CLINK) 
first free address after external area 

(set by CLINK) 



arsis 


equ args 


ars2s 


equ args+2 


ars3s 


equ args+4 


arg4.' 


equ args+6 


argSJ 


equ args+S 


arg6s 


equ args+10 


arg7s 


equ arss+12 


t»P! 


equ root 


tBPiJ 


equ roo»+l 


tw>2: 


equ rooft+2 


tap2a: 


equ rooa+4 


ungetls 


equ rooa+6 


lastcs 


equ rooiB+7 



• these are just convenient nai&es for 
?the words in the "arg$ B area 



jsose scratch data areas used by library 
•functions. 



; BDOS cal 1 codes: 

I 




if cpt 


conins 


equ 1 


conouts 


equ 2 


1 stout! 


equ 5 


dconi©! 


equ 6 


pstrngs 


equ 9 


get! in: 


equ 10 


cstats 


equ 11 


select! 


equ 14 


opencs 


equ 15 


closec! 


equ 16 


dek! 


equ 19 


reads: 


equ 20 


writs? 


equ 21 


create! 


equ 22 


renc! 


equ 23 


sdaa! 


equ 26 


readrs 


equ 33 


writri 


equ 34 


cfsiK! 


equ 35 


smcti 


equ 36 



?get a character froa console 

Jwrite a character to console 

? write a character to list device 

Jdirect console I/O (only for CP/tt 2.0) 

J print string (terminated by '*') 

Jget buffered line from console 

Sset console status 

'select disk 

Sopen a file 

,• close a file 

; delete a file 

iread a sector (sequential) 

•write a sector (sequential) 

'Mke a file 

'renafce file 

• set daa 

•read random sector 

•write random sector 

•co»Pute file size 

•set randoai record 



endif 



/* 



written bY Uop Zolman 
3/82 

Given the naae of a C~senerated COM file (1 inked with the standard 
distribution version of the C.CCC run-ti»e pacfcas-eh this prosraa 
changes that COM file so that it does not perfora a wararfeoot after 
its execution is complete* but instead preserves the CCP (Console 
Coissand Processor) that is in booty when execution besins and 
returns to the CCP directly following- execution. 

NOTE: If a cowsand is the object of a pipe operation usins BIO* 
then a wars-boot will always occur after its execution* whether 
or not NOB00T has been applied to it. 



*/ 

#inc?ude "bdscio.h* 

nain ( arse »ar9v) 
char **ars-v? 
{ 



int id', 

int i? 

char c? 

char na»buf£303? 

char sorkbuffOx5003? 

if (arse != 2) ( 

PutsCUsase? noboot <C-senerated CC81 file naie>\n H )? 

exit J 
} 

for (i=0? (c = arsv£13£i3) 1& c != V? i*+) 

na»buf£i3 - c* 
naabufCiJ = '\0's 
strcat(nartuf.".CW)! 

if <(fd = open(naabuf.2>> ~ ERROR) i 
puts ("Can't open s "3? 
puts(naiabuf)* 
exitO? 

X 

J 

i = read* fd, workbuf +0x100,8)? 

if ii != 8) puts ("Couldn't read in at least 8 sectors*. An*} 9 

workbuf £0x1003 = 0x21? 
workbuf £0x1013 » 0x00? 
workbuf£0xl023 = 0x00? 
workbuf£0xi033 = 0x39? 
workbuf£Ox!043 = 0x22? 
workbuf£Oxl053 = 0x79? 
werfcbufC0xlO63 = 0x05? 
workbuf£0xi073 = Oxcd? 
worfcbuft0xlO83 = 0x34? 
!UorkbufCOxl093 = 0x01? 
workbuf £0xl0a3 = 0xf9? 

workbuf £0xi2f 3 = 0x2a? 
workbuf£0xl303 = 0x79? 



workbuf £0x131 3 - 0x05? 
workbuf [0x1323 = 0xf9? 
workbuf[Ox!333 = 0xe9? 

workbuf£0x!343 * 0x2a? 
workbuf COx-1353 = 0x06? 
workbuf [0x1363 = OxOC>? 
workbuf [0x1373 =0x11? 
workbuf [0x1383 = Oxcc? 
workbuf[Oxl393 = 0xf7? 
workbuf [Oxl3a3 = 0x19? 
workbuf £0xl3b3 = Oxc?? 
workbuf [0x13c 3 = 0x00? 
workbufCOxl3d3 = 0x00? 
workbuf£Oxl'3e3 = 0x00? 

workbuf[Ox4433 = Oxc3? 
workbuf£Ox4443 = 0x2f ? 
workbuf 10x4453 = 0x01? 

se«k(fd,0,0)? 

if (writ€(fd 5 workbuf+0xl00 5 8) != 8) C 

putsCWrits #rror.\ri H )? 

exitO? 



if (dosetfd) ~ ERROR) { 

puts ("Close *rror\n")S 
} 



/# 



*/ 

/# 



,C written fey Leor Zolaan 
3/82 

Given a list of C-generated COW files (linked with the standard 
distribution version of the C.CCC run-tiae package)? this program 
changes those COM files so that the/ do not perform a wart-boot after 
their execution is coaplete* but instead preserve the CCP {Consols 
Coaaand Processor) that is in aeaorv when execution begins and 
return to the CCP directly following execution. 

NOTE: If a coaaand is the object of a pips operation using 0IO» 
then a wara-boot will always occur after its execution? whether 
or not NOBOOT has been applied to it, 

link bv: 

A>clink noboot wildexp 
(or) A>12 noboot wildexp 



Cleaned up screen output by use of "CLEARS string fr-oa 
BDSCIO.H - if you have not configured BDSCIO.H you can 
coaaent out the line "puts (CLEARS)!" OR configure BDSCIO.H, 



- Larry Clive 

- 6/11/82 
#/ 

iinclude "bdscio.h" 

aain(argc»argv) 
char «*argv» 
{ 

int H\ 

int ti 

char c! 

char naafeuf£3d3* 

char workbufCOx5003l 

int loop? 

if (argc == 1) £ 

putsCUsages noboot <list of C-generated COH file naaes>\n")' 
exitO? 
} 



for (loop * is loop < argc? Ioop++) 

{ 

puts (CLEARS); /# see second coaaent above - LC */ 
put5( 8 \n\nN0B00T version 3.0\n\n-*> MOBOOT-ing *)? 
puts(ar3vCloop3)* 
putchar<'\n')' 

for (i*0; (c = argv£loopJ£i3) & c !* V? i++) 

naabufCi) « c? 
naabuffil * '\0's 
5trcat!naabuf> u .CGM")! 



if Ufd * eFenfnaii>fcuf>2)) ~ ERROR) 
puts( "Can't open; »)? 
putsCnai&buf)? 
exitO? 



i = read (fchworkbuf +0x100, 8); 

if (i != 8) putsC'Couldn't read in at least 8 sectors, ..\n")S 

workbuft0xl003 = 0x21? 
workbuf[OxiOi3 = 0x00? 
workbuf t0x!023 = 0x00? 
sorkbufC0xl033 = 0x39? 
»orkbuftOxl043 = 0x22? 
workbuf £0x1053 = 0x7'?? 
workb«fCOxl063 = 0x05s 
workbufCOxI073 * Oxcd? 
«orkbufC0x!083 = 0x34? 
workbuf £0x1093 - 0x015 
wrkbuftOxlOal = 0xf9? 

workbuf C0xl2f 3 = 0x2a? 
workbufC0x!303 = 0x79? 
w$rkbuf£0xl313 = 0x05? 
workbuft0xi323 = 0xf9? 
tforkbufC0xi333 = 0xc9? 



workbuf[0xt343 = 0x2a 
workbuf C0xl353 = 0x06 
workbuf£0xl363 = 0x00 
workbufC0xi373 = Oxll 
aorkbufC0x!3S3 = Oxcc 
workbufC0xi393 = 0xf7 
»orkbuft0xl3a3 « 0x19 
workbuf £0xi3b3 = 0xc9 
workbuf 10x13c 3 = Ox 
workbuf[0xi3d3 = 0x00 
workbuf£0xl3e3 = OxOO 

»©rkl>«f£0x4433 = 0xc3? 
workbuf [0x444 3 - Qx2f? 
workbuf [0x4453 = 0x01? 



seeMfd.0,0)? 

if (writfi{fd»workbuf+Oxl00,8) != 8) 

Puts{*Write error. \n")» 

exitO? 



if (dosetfd) « ERROR) C 

puts ("Close errorVn")? 



Floating Paint Package for BBS C 

#«HHHHHW*#####f**»##***«####«# 

Written by! Bob Hathias 
this doc by: Leor Zoltan 

Components of the floating point package: 

1) FLGAT.DOC: This documentation file 

2) FLGAT.C: File of support functions* written in C 

3) FPs The workhorse function (in BEFF2.CRL) 

4) FLGATSUH.C A Sample use of all this stuff 

Here's how it works* for- every floating point nuaber 
you wish to work with? you must declare a five (5) element 
character array. Then» pass a pointer to the array juhenever 
you need to specify it in a function call. Each of Bob's 
functions expects its arguments to be pointers to such 
character arrays. 

The four basic arithmetic functions are! fpadd» 
fpsub* fptul and fpdiv. They each take three arguments: a 
pointer to a five character array where the result will so* 
and the two operands <eacb a pointer to a five character- array 
representing a floating point operand.) 

NOTE THAT THE RESULT HAY BE PLACED INTO EITHER OF THE ARGUEHEMTS 
WITH NO ILL EFFECTS. I.e., the operation: 

fpmult{foo»foo*foo>? 
will successfully square 'foo - ' and place the result in 'foo'. 

To initialize the floating point character arrays to the 
values you desire and print out the values in a human-readable fori* 
the following functions are included*" 

ftoa: converts a floating point number to an ASCII 

string {which you can then print out with "puts") 

NOTE: explicit use of this function has been made 

obsolete fey the new "sprintf." See FLOAT. C. 

atofs converts an ASCII string (null terminated) to 
a floating point number 

itof: converts integer to floating point. 

Here are Bob's descriptions of the functions: 



The following functions allow BBS C compiler users to access 
and manipulate real numbers. Each real number must be allocated 
a five (5) byte character array {char fpno£53L The first four- 
bytes contain the mantissa with the first byte being the least 
significant byte. The fifth byte is the exponent. 



fpcomp(opl?op2) 
char op1[53jop2C53? 



Returns: 

an integer i if opI > op2 
an integer -1 if opI < op2 
a zero if opl = op2 



As with aost floating point packages? it is not 
a good practice i& coapare for equality when 
dealing with floating point lumbers. 

char *f padd< result* op 1»op2) 

char result£53* op1£53j op2t53? 

Stores the result of opl + op2 in result, opI 
and op2 aust be floating point nuiabers. 
Returns a pointer to the beginning of result. 



char *fpsub(resu1t»ophop2) 
char result£53>opiC53,op2£5J; 

Stores the result of opI - op2 in result, op! 

and op2 Bust be floating point numbers. 

Returns a pointer to the beginning of result. 

char #fpfflult(resulhopli0p2) 

char resultC5370PlC53sOP2C53» 

Stores the result of op! * of2 in result. opI 
and op2 aust be floating point numbers. Return* 
a pointer to the beginning of result. 

char *fpdiv(resulttOPi J op2) 
char resultC53jOPiC53jOP2C53" 

Stores the result of opI / op2 in result. opI 

and op2 aust be floating point numbers. 

A 4iyi4i dy zero will return zero as result. 

Returns a pointer to the bsginning of result. 

char flatofiophsl) 
char op1C53,#s' 

Converts the ASCII string s! into a floating 

point nuaber and stores the result in opL 

The function will ignore leading white space 

but NO white, space is allowed to be embedded 

withing the nusber. The fol.iowins are legal 

exaafles* 

M 2 H , "220222222223^3. 333 H , "2.71828e-9S 

"334. 333^32" • 

"3443.33 £10 H "would be ILLEGAL because 

it contains an embedded space. 

The value of the exponent Bust be within the 

range! -38 <* exponent <« 38. 

A pointer to the result n returned. 



char *ftoa(sl»opl) 
char *si J oPlC53? 



Converts thti floating point number of J to an 
ASCII string. It will be formatted in 
scientific notation with seven (7) digits of 
precision. The string will be terminated by 
a null. 
Returns a pointer to the beginning of si. 



char *itof(opl* n) 
char op1C53» 
int n! 



Sets the floating pt. nuaber of! to the value 
of integer n. n is assumed to fee a SIGNED 



integer. 



General observations! 

Because floating point operations aust be thought of 
in teras of RflCTION CALLS rather than simple in-line 
expressions* special care must be taken not to confuse the 
abilities of the compiler with the abilities of the floating 
point packase. To give a floating point nuafcer an initail 
value* for instance* you cannot say* 

char fpnoCSJ; 
fpno = "2.236"; 

To achieve the desired result* you'd have to says 

char fpnotSl* 
atottfpno, "2.236")! 

Horeover* let's say you want to set a floating point nuaber 
to the value of an integer variable called B iva!\ Savins: 

char fpnotSJ* 
int ival? 

* * * 

fpno = ival? 

will not work? you have to change that last line to? 

itofi fpno, ival)? 

Soie aore exaaples? 

The following will add 100.2 I -7.99 and store the 
result at the five character array location V? 

fpidd<a,atof(l>, "100.2*), atofk, B -7.9? u ))? 
(note that "b" and "c* aust also be five character 
arrays) 

The following would NOT add i to V as both op! and 
op2 »ust be floating point nuabers. (actually pointers 
to characters...)? 

fpadd(a 3 a*D? /* bad use of "fpadd* */ 

Thus* it can get a bit hairy when all floating 
point nuabers are really character arrays' but still* it's 
better than nothing. 

All of the above functions are written in Ci but 
aost of theja call a single workhorse function called a fp" 
to do all the really hairy work. This function has been placed 
into the B£FF2.C1?L? it is the only aachine-coded Fart of the 
package. 



/» 



Floating point package support routines 

Note the "fp" library function, available in DEFF2.CRL 
is used extensively fey all the floating point number 
crunching functions. 

(see FL0AT.DOC for details...) 



Usase! After compiling your program link with this library 
by typing! 

A>clink <Cyour program files) -f float <cr> 



NEW FEATURES a special "printf" function has been included 
in this source file for use with floating point 
operands* in addition to the noma! types. The 
printf presented here will take precedence over 
the EEFF.CRL version when "float" is specified 
on the CLM command line at linkage tiise. 
Note that the "fp" function? needed by aost of 
the functions in this file* resides in DEFF2.CRL 
and will be autoptical W collected by CLINK. 

All functions here written by Bob Hathias? except printf and 
_spr (written by Leor Zolean.) 

*/ 

#indude "bdscio.h" 

tdefine NORtLCQDE 

#define ADD.CGBE i 

tdefine SUB..C0BE 2 

#define MULT.CGDE 3 

tdefine DIM-CODE 4 

tdefine FTOA.CO0E 5 

fpcotp(opl,op2) 

. char *op«U*op2? 
{ 

char worfc[53> 

fpsub(work»opi5 0p2)! 

if imr-mi > 127) return (-1)? 

if (workt03+work£I3+workC23+workC33) return U)J 

return (0)? 



fpnorisfopi) char *op1? 

{ fp(N0RKJCODE,opi,opi)5return(opi)S} 

fpadd(result>opi s op2) 

char *resu Iti *op! * *op2? 
{ fp(ffl)ILCODE J re5u)trOPi ? op2);return(result)n 

fpsub(result»op2*opi) 

char *result»#opij*op2* 



{fp<SU0_CD!€ s re5U?t } opI,op2};returnir*5U?t}!} 

fp«u1t<r«5ult»opl»OP2) 

char *resu}t,#opi,*op2? 
{ fpC«ULLC0DE,result,opl,op2)?return(r€sult)?} 

fpdiv{re5uft»opi»op2> 

char *r*sult,*opl»*op2? 
{ fp(0IV-.CODE } r«5ultTOPl 5 op2)?r«turri»:re5ult)?} 

atof(fpno.s) 

char fpncC53»*5? 
{ 

char *fpnorfflO } workC53 5 Z£RO[53 J FP-iOC53? 

int sisn-Boolean, power! 

initbfFP-10, "0,0,0,80,4"}? 

5et»eia<fpno,5»0)' 

s i btuH o 1 ean=POtfer=0! 

while (is**' ' i! *s*='\t'> ++s! 

if <*5~'-'){sisnJ>ool*an=i?++5!3 
for *>isdi9it(*s)'++s){ 

fpfflu!t(fprio,fpr»o,FP-10)5 

wofkEOI^s-'O'; 

uorktl3=workE23=«GrkE33=Ofwork[43<<i; 

f padd( f pno » f pno, fpnon&( work)), 
} 
if (*5='.'){ 

++5? 

for (* isdi3it(*s)S —power >++5)C 
fnmlt(fpnOffpno*FP.10)> 
work[03=*5-'6'i 

work[i3^ork£23=workt33=0?workf43=3i? 
f paddff pno, f pno, f pnorja(uork) ) ' 
} 
} 

if (towpeHts) = '£') {++5! power += atoi(s); 3 
if fpower>0) 

for (? power! =05 —power) fpoultCfpnojfpnojFP-lO), 
else 
if (poweKO) 

for to power ?=0?«-power) fpdiv{fpno,fpno,FP«10); 
if (sian-booleanK 

set»eft( ZERO, 5,0)? 
f psub * f pno, ZERO* f pno ) ? 
} 

return (f pno)? 
} 
ftoa(result>opi) 

char *resu]t,ftopi! 
{ fp^FTOA-CODEjresultrOPDfreturn^result)?} 

itof(opi,D) 
char *opI! 
int n? 
C 

char teffip[203? 

return atofCopir itoa(teiRP*n>>? 



itoa<str»n) 
char #str? 
{ 



/* 



char #sptr? 

sptr » str» 

if (n<0) C *sptr++ * '-'! n = -n! 

.uspH&sptrs n> 10)* 

#5Ptr * '\0's 

return str? 



This is the special foraatting function: which supports the 
"e" and "f" conversions as well as the noraal "d% tt s"> etc. 
When using M e n or °f" foreati the corresponding! arsuaent in 
the arguaent list should be a pointer to one of the five-byte 
strings used as floating point nuabers bv the floating point 
functions. Note that you don't need to ever ns^ the "ftoa" 
function when usins this special printf/sprintf combination? 
to achieve the same result as ftoa. a siaple "Xe" foraat 
conversion will do the trick. "Sf is used to eliminate the 
scientific notation and set the precision. The only CknouiO 
difference between the "e* and "f* conversions as used here 
and the ones described in the Kernighan & Ritchie book is that 
ROUNDING does not take place in this version, ..e.g.r printing 
a floating point nuaber which happens to equal exactly 3.999 
using a "%5.2f" foraat conversion will produce " 3.99" instead 
of w 4.00". 



#/ 



«,spp{ line? fat) 
char *line» *#fat? 
{ 

char -usprOj c ? basei **ptr> *foraat* 

char wbufCMAXLINE], #wptr, pf, Ijflas, zfflag? 

int widths precision* exp* *arg$; 

foraat = *fat+** /* fat first points to the foraat string #/ 
args * fat? /* now fat points to the first ars value */ 
while (c - *foraat++> 
if (c » '%') { 

WPtf * Wbuf? 

precision = 6? 

Uflag = pf = zfflag = 0? 

if Uforaat « '-*') I 
foraat++S 
}jflag+*J 



if (*for»at « '0') zfflag-H-? /* test for zero fill */ 

width * isdigit{#foraat) ? jv2(lfop»at) i 0? 

if <(c = *foraat+*> ** V) { 

precision = -.9v2^foraat)' 

pf++? 

c = *foraat++? 



switcMtoupperk)) { 

case 'E's if * precision^ ) precision = 7* 
ftoafwbuf>*ar9s++); 
5trcPY<wbuf+precision+3* wbuf+10)? 
width -= strlenfwbuf)? 
goto pad2i 

case 'F': ftoa{&wbuf[&03»*ar3s++); 
sptr a $;wbuft&OJ? 
while < *sptr++ »* 'E') 

exp * atoifsptr); 
sptr = &wbuf[603? 
if (tsptr = ' '} sptr++? 
if (*sptr « '-") { 

«„,Ptr++ s '-'? 

sptr++* 

width—? 
} 
sptr +* 2; 

if (exp < i) { 
#wptr++ = '0'5 
width—! 
} 

pf = 7? 

while <*xp > Sett pf) C 

*wptr++ s #5Ptr++? 

pf— ? 

exp— ! 

width—? 



while (exp > 0) { 
#wptr++ * 'O's 
exp— ? 
width—? 



«wptr++ = V? 
width—? 

while (exp < t& precision) { 
#BPtr++ = 'O'S 

#XP++? 

precision—? 

width—; 
x 

while (precision && pf) { 
#wptr++ = *sptr-H? 
pf-? 

precision—? 
width—? 
} 

while i precis ior«>0) C 



precision—? 
width—; 



soto pad! 

case 'B'J if <*ar3S < 0) { 

#wptr++ = '-'; 

*ar95 » -*ar9s? 

width— ? 
} 
case 'U's base - 10? soto val? 

case 'X'i base * 16" goto val? 

case '0 / : base = 8? 

val? width -= _u$pr(&wptr>*ar95++7base); 
soto pad? 

case 'C'? *wptr+* * *arss++? 
width—? 
?oto pad? 

case '$': if L'pf) precision = 200? 
5Ptr s ftarss++? 
while f*sptr && precision) { 
#uptrf+ = #sptr+*? 
precision—? 
width—? 



pad: #wptr = '\0'5 
pad2? wptr = wbuf? 
if (Miflas) 

while (width— > 0) 

*lir.e++ a zfflas ? '<)' ? ' "5 

while (*line = *wptr+*) 
line++? 

if (Uflas) 

while (width— > 0) 

#line++ = ' *\ 
break? 

defaults *lii»e++ = c? 



else *line++ - c* 
*line s '\0'J 



% 



/t 

New functions for BBS C vi.4xs "Jprintf" and "I puts" 
Written 1/18/81 by. Leor 2olj&an 

#include <bdscio.h> 
idtf ine LISTDEV 2 



/# 



Formatted output to the list device. Usage: 

Iprintf ( format? arsi? arg2» ...) 
char tforrott 

Works just like "printfS except the output line is written 
to the linepr inter instead of to the console. 



*/ 



lprintf( format) 
char «for«ati 

r 



} 
/* 



char txtlin£HAXtlNE35 
M spr(txt1ini«efor»at}' 
lputsCtxtlin); 



Put a line out to the list device. Usase* 

)Futs<$tr) 
char *str? 

Works just like u puts u » except the output line goes to the 
printer instead of to the console! 



*/ 



|puts<str) 

char *str? 
C 

char c» 

while (c = *str++) { 

if Cc « -W) Putd'VMISTBEV); 
putc(cLISTDEV)? 



/* 



*/ 



CASK.C — written bv Leor Zolman, 2/82 

CP/H ASH preprocessor* renders MAC.COH and CHAC.LIB unnecessary. 

See the CASK document (included with BBS C vl.46) for more info. 



Compile by.' 

cc casm.c -o - 



#inc!ude "bdscio.h" 

#define CAREFUL 

#define TPALOC (BASE+OxlOO) 
#define EGUHAX 500 
#define FUNCHAX 100 
#def ine NFHAX 100 

#define LABHAX 150 
#define TXTBl^SIZE 2000 

#define BEFBISK °C: H 
define CASHEXT \CSH M 
idefine ASMEXT ".ASH" 
#define DIRSIZE 512 



/* Setting this to 1 makes CASH check for 

and reject old "CHAC.LIB" pseudo-ops */ 
/* base of TPA in your system */ 
/# maximum number of E8U ops #/ 
/# maximum number of functions #/ 
/* maximum number of external 

functions in one function */ 
/* sax number of local labels in one func */ 
/# max # of chars for labels and needed 

function names for a single function */ 
/# default disk for include files */ 
/* extension on input files */ 
/* extension on output files */ 
/* max # of bvtes in CRL directory */ 



/# Global data used throughout processing 
of the intput files #/ 



char 
char 
char 


fbufCBUFSIZJi 

incbufCBUFSIZl; 

obufCBOFSm; 


char 
char 
char 


scbufp? 

*cfilnam* 

na»bufC303? 

nambuf2£303, 

onambufC303? 


char 
int 


*equtab£EQUHAX3? 
eiucount? 


char 
int 


*fnaaes[FUNCHAX3; 
fcountJ 


int 


lino»savlino; 


char 


doingfunc? 


char 


errf* 



/* I/O buffer for main input file */ 
/* I/O buffer for included file */ 
/* I/O buffer for output file */ 

/# pointer to currently active input buf */ 
/* pointer to name of current input fils */ 
/* filenames for current intput */ 
/# and output files. */ 



*/ 

*/ 



/* table of absolute svi 
/* # of entries in e«*utab 



/# list of functions in the source file */ 
/# # of entries in fnames */ 

/* line number values used for error */ 
/* reporting. */ 

/* true if currently processing a function */ 

/* true if an error has been detected */ 



/# Global data used during the processing of a 
single function in the source file! 



*/ 



char *nflist£NFHAX3; /» list of needed functions for a function */ 
int nf count? /* number of entries in nflist */ 



struct C 

char *latmaffi! 

char defined; 
} lablistCLABMAXl; 



/* na»e of function lab*! */ 

/# whether- it has been defined vet */ 



int labcount? 

char txtbuHTXTBUFSIZE], 
stxtbufp? 

char linbufHSCO, 
Jinsavtl503* 
workbufE1503i 
pbufC1503, *Pbufp? 



/* nuaber of local labels in a function */ 

/* where text of needed function names */ 
/* and function labels so */ 

/* text line buffers */ 



char 
int 



*cfuna»? 
relblc? 



/* pointer- to naffie of current function #/ 
/# relocation object count for a function */ 



char pastnfs? 



/* true if we've passed all needed function */ 
/# declarations {"external" pseudo ops) */ 



int 
char 



argent" 
#lab*l, 

#OP, 

*arssp> 
*arss£4e3? 



/# values set bv the "parseJine" function */ 



char *spcptr? 



/* general -purpose text pointer */ 



/* 

* Open sain input filei open output file* initialise needed slobals 

* and process the file? 
♦/ 

saintearghc* aarshy ) 
char **aarghvJ 
%. 

int iihkl 

char c* 

putsCBD Software CRL-foraat ASH Preprocessor vl.46\n")j 



initeiuO? 
f count = 0? 
doinsfunc s 0* 
errf = 0; 



/* initialize EQU table with reserved words */ 
/* haven't se*n any functions vet «/ 
/< not currently processing a function «/ 
/* no errors vet */ 



if (aarghc != 2) 

exiHputsPUsasei \ncasa <filenaae>\n")>? 



/* set up fileRaaes with proper extensions? */ 



for Ci = Of (c « aarshvmm) §& c !* V? i++) 

na»hufCi3 s c? 
naiobufCi] = '\0'? 
strcPY<onaffibuf»na»buf)» 

strcat(na»buf } CASf£XT); /* input filename #/ 

cbufp = fbuf » /* buffer pointer */ 

cfilnaa = naabuf? /* current filename pointer #/ 

if (fopenicfilnaa* cbufp) « ERRCH?) 



exitCpriritfCCan't open %s\n'Scfilnai&))S 

strcat(onajabuf,A$KEXT)? /* output filena«e */ 

if (fcreat{ona»buf»obuf) = ERROR) 

exit(printf( "Can't open %s\n n »onaabuf))» 

/ft begin writing output file */ 
fprintf(obuf,"\nTPAL0C\t\tE8U\tX04xH\n",PAL0C)i 



lino « ii 



/ft initialize line count »/ 



while (getJine()) { 

process.! ineO 5 
?ino+** 



/* »ain loop */ 

/ft process lines till EOF */ 



if (doinsfunc) 



/* i^ ends inside a function* error */ 



abort ("File ends* but last function is untern>inated\n")? 

fputs«"\nEND$CRL\t\t£^\t*-TPALOC\n a ,obuf)? /* end of functions */ 
fputs( B SECTQR$$ E6U <*-TPAL0C)/256+i ?USE FOR \*SAVE\" !.\n",obuf)J 
putdirOS /* now spit out CRL directory */ 

fputs( u \t\tEND\n",obuf); /* end of file */ 
putc(CPM£OF,obuf); /» CP/M EOF character */ 
fclose( cbufp)* /* close input file */ 

fflush(obuf)? /* flush and close output file ft/ 

fclose(obuf); 
if ferrf) 

printfC'Fix those errors and try again... \n u )? 
else 

printfCXnZs is ready to be as5eBbled.\n*>onaiibuf)* 



/# 

* Get a line of text fro» input strea»» and process 

# "include" ops on the fly* 
#/ 

int setJineO 
{ 

int i! 



if (!f9ets(linbuf*cbufp)) C 

if (cbufp ~ incbuf) { 

fabort(cbufp->.fd)» 
cbufp = fbuf; 
cfilnaa a naabuf? 
lino = savlino + i? 
return getJineO* 



/» on EOF: ft/ 

/ft in an "include" file? */ 
/* close the file «/ 
/ft so back to aainline file #/ 



else return NULLS 



parseJineO? 

if (streitop, "INCLUDE") !! 
stre^oP^HACLIB")) { 
if (cbufp » incbuf) 



/« not EOF, Parse line ft/ 
/ft check for fils inclusion #/ 

/ft if already in an include? ft/ 



abortCQnly one level of inclusion is supported")! /* error ft/ 
if (farssp) 
abort ("No filename specified")* 



cbufp = incbuf! /* set up for inclusion */ 

savlino = lino! 
lino a l! 

for Ci = 0? !isspace(argsp£i3)5 i++) /* put null after */ 
? /* filenaie */ 

argsp£i3 = '\0"> 

*na»buf2 = '\0'5 

if (*ars5P » '<") { /* look for Basic deliaiters */ 
if <ar95pC23 != '«') /* if no explicit disk siven #/ 
strcat<na»buf2»B£F0ISK)! /* then use default */ 
strcat ( nambuf 2» arssp+l ) ' 
if (na»buf2Ci = strlenCnassbuf2) - 13 ~ '}') 
nambuf2[i] = '\0'5 
} else if (*arssp == "") i 

str-cpv ( naabuf 2* arssp+1 ) S 
if (naubuf2U = strlen(nafflbuf2> - 13 ~ '"') 
na»buf2Ci3 = 'Wl 
} else 

5trcPY(nafflbuf2tar9SP)? 

if <fopen(na»buf2,cbufp> » ERROR) { 

if <naffibuf2Cstrlen(nai»buf2) - 13 !* V) { 
strcattnaiubuf^ \UB U )! 
if (fopen<nai»buf2> cbufp) i= ERROR) 
soto ok* 
> 

printH "Can't open %$\n"»na»buf2)! 
abort ("Miss ins include file 8 )? 



ok? cfilnaa = na»buf2* 
return setJineO! 

X 

j 
return i! 



} 
parseJineO 



int i! 
char c! 

label « op = arssp = NULL! 
arscnt = 0* 

strcpY2(pbuf»linbuf)' 
strcPv2Uinsav* 1 inbuf )! 
pbufp = pbuf * 

if C!isspace(c - *pbufp)> { 
if (c » '?') 

return? /* totally isnore consent lines «/ 
label = pbufp! /* set pointer to label #/ 
anile (isidchHfcpbufp)) /» pass over the label identifier */ 

pbufp++! 
#pbufp++ = 'Wl /* place null after the identifier */ 



5kiP-W5P(ltPfe«fP>? 

if (!«pfeufp ii *pbufp = '!') 

return? 
op = pbufp? /* set pointer to operation mnenonic */ 

while (isalpha<*pbufp>) 

pbufp++? /* skip over the op »/ 

if (*pbufp) *pbufp++ * '\0's /* place null after the op */ 



/# now process arguments */ 
skip_wsp{&pbufp)? 
if (!*pbufp i! ffpbufp « '?') 

return? 
arssp = linsav ♦ (pbufp * pbuf}? /• set pointer- to ars list */ 

/# create vector of ptrs to all ar-ss 
that are possibly relocatable */ 
for (arscnt = 0? arscnt < 40? ) { 

while (!isidstrt*c = «pbufp>) 
if (!c •'.' c == '?') 
return? 

pbufp++? 
if (isidchHstpbufp ~ 1))) { 

PDUfpH-? 

continue? 

} 

argstar3cnt++3 = pbufp? 

while *isidcbr(#pbufp)) pbufp++? 

if (tpbufp) *pbufp++ = '\0'? 

J 

error ("To© ftanv operands in this instruction for m to handle\n a )? 



process. lineO 
{ 



char *cptr» c? 
int ijj? 

if (op) ( 

/* check for definitions of sloba! data that will be 
exe»pt froa relocation when encountered in the 
arsui&ent field of asseablv instructions? */ 

if (streq<©p» 'W') I! stre«rtoFi"SET") !! 
(.'doinsfunc Ut 

(str-e^op, 8 !^) ,'! 5tre<*<op, H BB 8 ) 1! streMop^DU 8 }))) 



{ 



fputs(linbuf»obuf)? 
cptr = sbrk2(strien(labsl) + D? 
strcPY(cptr»label)? 
e«tutabCe«?ucount"H-3 = cptr? 
Or (e*?ucount >= EQUMAX) 
abort ( 
B Too mnY EQU lines... increase 'EQWIAX'' and recompile CA$f)? 
return? 



if <5tre<?{oF* "EXTERNAL"}} { 
if Hdoinsfunc) abortf 

"'External's for a function sust appear inside the fundi on "}? 
if (pastnfs) error ( 

■Externals sust all be tosether at start of function\n")? 
for (i = 0? i < ar9cnt? i++) { 

nflist[nfcount+*J * txtbufF? 

strcPY(txtbufp»ar9s[i3)" 

buroptxtp(ar3sCi3)» 

X 

J 

if (nf count >= NFHAX} { 
printf<"Too »any external functions in function \ u %s\*\n", 
cfunai); 

abort ("Change the NFHAX constant and recompile CASH }? 

% 

return? 



if (str*q<op, "FUNCTION")} < 
if (Jfcount) { 

fputs("\n? dumav external data informations \n"»obuf)! 

f puts i "\t\ ta?G\tTPAL^X+200H\n ,, , obuf ) ? 

fputs( n \t\tDB\tO,0,0,0,0\n , Sobuf)? 
} 

if (doinsfunc) { 

printf* "'Function'' op encountered in a function. \n*}? 

abortf"0id you forset an 'endfunc' op?"}? 

i 
j 

if Harscnt} 

abort* "A naae is required for the 'function'' op*}? 

cf unaa = sbrk2(strlen<arssE03) + 1}? 
fna?ResCfcount++3 = cfunam? 
strcPYkfuna©»ars5C03)? 

printH "Processing the %$ function... \r*icfunaa)$ 

doinsfunc * j; 

txtbufp = txtbuf? 

labcount = 0? 

nf count = 0? 

pastnfs = 0* 

fpr-intfCobuf^nVn? The \"%s\" functions \n"»cfuna»}? 

fprintf(obuf»"%s*^6\t£8U\t$-TI 5 ALOC\n B ,cfunais}? 

return? 



if (streiCop, "ENDFUNC 8 } \i str-e^op,"ENDFUNCT!ON")} C 
if CidoinsfuncJ 
abort ("'Endfunc' op encountered while not in a function 8 }? 

if (ipastnfs) flushnfsO? /* flush needed function list #/ 

fprintf(obuf,"%s$END\tE9U\t$\n 8 ,cfunai»}? 

dorelod)? /# flush relocation Farasseters */ 

for (i = 0? i < labcount? i++) /# detect undefined labels */ 
if (MablistEiL defined} { 

printfCThe label 7.s in function Ss is undefined\n a » 
lablisttiLlabnai'Cfuniffi)* 



errf 9 is 
x 

doinsfunc s 0* 
return? 



j 

X 



#if CAREFUL 

if (streiCop.mOC") !! streq£op,*BWREL") !! stre«?( op, "DIRECT") i! 
streq(op."ENDDIR") !! stre<*(op,«EXREL") I! stm(op,"E)(DWREL") !! 
streq(op, "PRELUDE") i! streqfep.TOTLUDE") ii stm( op, "DEFINE")) 
error("01d racro leftover from \ B CHAC.LIB\ U davs.-.W)? 



#endif 



outs 



/* No special pseudo ops, so now Frocess 
the line as a line of assefibv code: */ 

if (stre«*(op,"£ND M )) return? /* don't allow *md" vet «/ 

if (! doinsfunc !! (.'label && !op)) /* if nothing interestins on #/ 
return fputs(Jinbuf»obuf)! /* line, isnore it */ 

if (Jpastnfs) /* if haven't flushed needed */ 

flushnfsO? /* function list vet, do it «/ 

/# check for possible label */ 

if (label) { 

fprintf(obuf I *Xs*L$y.s\t\t£SU\tf-7.s$STRT\n", 

cfunaa. label, cfunaa)? 

for (i=0? linbufti]? i++) 

if (isspace(linbuf£i3) !! linbufti J = ':') 

break* 

else 

linbufm = ' '? 

if (linbufin « '.*') linbufm = ' *\ 

for (i * 0; i < labcountl i++) /* check if in label table */ 

if (streq<label.1ablist[i3.1abna»)) { /* if found, */ 

if (lablistCiJ. defined) { /* check for redefinition */ 

error ("Re-defined label'")" 

.printfCXs* in function %s\n*> 

lablistCil.labnafft.cfunan)' 
•». 

else 

lablistfiJ. defined = i? 
3oto out* 
} 
lablistCi3.1abna» = txtbufp? /* add new entry to #/ 
lablist£i3.defined » i? /« label list */ 
strcpvf txtbufpi label )* 
buiBPtxtp( label)! 
labcount++* 

x 

i 

if (!op) return fputs(linbuf.obuf). /* if label only, all done */ 

/* if a non-relocatable $?•> */ 
if (norelop(op)) return fputs(linbuf.obuf)? /# then ye're done t/ 

if Carscnt &l doinsfunc) 
for (i = 0? i < arscnt? i++) C 

if (noreHarss£i3)) continue? 



outl': 



if CsPCPtr = isef(argsEi3)) 

sppii»tf<wrkbuf» l, Xs«EF$Is-X*$STRT", 
cf unaRi gpcptr » cf unaa) ? 
else C 

sprintf(workbuf>*7.$$L$%5"»cfunaa>ar9$£i3)? 
for (j = 0* J < labcount? j++) 

if {str«q(am£il? labl istfjj. labnaa) ) 
goto out2> 
lablistCJ3. labnaa = txtbufp? /* add new entry to #/ 
lablist£J3. defined * 0? /* label list */ 
&trcpY(txtbufp»arg${i3)' 
buaptxtp* txtbufp)? 
labcount++> 



replstr(linbuf> «orkbuf> args£i3 - pbuf* strlen(arssCi3))? 

if ^tre^(op,"DM M >) { 

fpriBtf(ob«f» - X5$RX03d\tEflO\t$-Xs$STRT\n", 

cfunaRj relblc++7 cfunaa)? 
if (argent > 1) 
errorCOnlv one relocatable value allowed per CMri*)? 

X 
J 

else 

fprintf<obuf,"%s$ift03d\t£eu\t*^-2$$$TRT\n"*, 
cfunaa» rslblc++j cfunaa)? 



break* 
fputsClinbufiobuf)' 



/* 

Test for ops in which there is guanranteed to be no need 
for generation of relocation parameters. Note that the list 
of non-relocatable ops doesn't necessarily have to be coaplete* 
because for any op that doesn't aatch> an arguaent aust still 
pass other tests before it is deeaed relocatable. This only 
speeds things up by telling the prosraa not to bother checking 
the ar-guaents., 

*/ 

nor el op (op) 

char #op? 

t 
i 

if CstmCopj'W}) return i! 

if (strnfop^IWH) return i! 

if (stre^op^DCR")) return lj 

if (stre^op^INX*)) return l; 

if ( street (of> "OCX")) return \\ 

if <stp«q(op,"nAD ,, n return 1! 

if (strei<op,*Wl u }) return \\ 

if CstmJop* W)) return 1? 

if (streiCop^'DS*)) return 1; 

if <ofC23 « 'I') £ 

if ( street op* "CPI")) return 1* 

if (street op, "GRI")) return i? 

if Cstre^op^ANI"}) return U 

if (stm*op> B ADI")) return I? 



if (5tre 5 ?(oPr H SU!*)) return is 

if <$tre^ep> B $BI 8 )) return 1? 

if (stw(op,"XRI")) return 1? 

if (stre«»(oFj H ACr)) return 1; 
j 

if {$tre«?(oPj B 0R(3")) return i? 
if (stm< op, "TITLE")) return 1? 
if (EtreiCop^PAGE*)) return 1? 
if (stre*»(oPi"IF")) return U 
if (streMop, "EJECT")) return i? 
if (streqtoF^MACRO 8 )) return 1! 
return 0* 



flushnfsO 
{ 



int i»j» length? 

pastnfs a lj 
relfek = 0; 

fputs* B \n\n? List of needed functions? \n" 5 obuf)? 
for Ci=0? i < nf count? i++) { 

strcPYdtforkbuf^XtUDBU'")? 

length = strlenfnflisKi])? 

lensth * length < 8 ? length ? 3? 

for U = 0? j < lensth - i? J++) 

workbuf[6+J3 = nflist£i]U3? 

tfor!cbufr.6+i3 = 'NO'S 

fprintf (obuf/%sVXc'+mn%workbuf,nflistCi3iJ3); 



fputs( a \t\tBB\tO\n M } obuf)! 

fputs( B \n? Length of bo<h'JVn".obuf)5 

fprintf(obuf» B \t\tD«\U5$ENB-$-2\n fl ,cfunaJs)! 

fputsC 8 \n? BodvJUAobuf)? 

fprintf^obuf^XslSTRTUEQUNmn"^^?^!); 

if tnfcount) { 

fprintf (ofeuf , B %s*fft03d\t£&l\t$+i-25$$TRT\n", 

cfunaBbrelblcH-rCfunasM 

f pri ntf i obuf , *\t\t Jf > \tXs$STRTC-Xs$STRT\n a , cf una*, cf anas) ? 
i, 

f pri ntf ( obuf » "Zs*£F$5£5\t£eU\t%5*STRT\n s T c f Unas, cfunaa* c funaa) ? 
for Ci=0; i < nf count* i++) 

fprintf(obuf J ns$£F$%s\tJJf > \tO\n%cfuna» 5 nflistCi3)? 
fprintf (obuf, u \ny.s$STRTt\tEQU\t$\n , Scfuna«)? 



dorelocO 



int i? 

fputs("\n? Relocation paraseters!\n u *obuf)f 
fprintf (obuf, B \t\tDU\t%d\n",relblc)? 
ford = 0? i < relblc! i++) 

fprintf <obuf,"U\tDW\tX5$R%03d\n*Scfuna»»i>! 
fputs( M \n a s obuf)? 



putdirO 
{ 



int iij* length? 
int bvtecount? 

bYtecount = 0? 

fputs( ,, \n\t\t0R6\tTPAL0C\n\r«? Directory: \n u ,&buf>? 
fof (i a 0? i < f count? i++) { 

strcpy(workbuf J ,, \t\tBB\t"'); 

length = strlen(fnan»esEi3)5 

length « length < 8 ? length : 8? 

for <J = 05 J < length - 1? J++) 

itforkbufC6-Ki3 = fnasesCiKJJ' 

workbuf[6+j3 = '\0'! 

fprintftobuf^ns'^Xc'+SOHSn^^workbuf.fnaisesCiJp}); 

fprintf(obuf J n \t\tDM\t%5$BEG\n" J fna»e5ti3)? 

bvtecount += (length + 2)? 
i 

fputs(»St\tDB\t80H\n\t\tD«\tEND$CRL\n",obuf); 

bvtecount += 3* 

if (bvtecount > D1RSIZE) { 

printfC'CftL Directory size will exceed 512 bvtesiW)? 

printf ("Break the file up into smaller chunks* please!\n B >? 

exit(-i)? 



inite«iu() 

{ 



eiutab£03 = "A"? 
equtabCU = B B B ? 
e«?utabC23 = "C 8 ! 
equtab[33 * n B ? 
equtab£43 = M P? 
equtabt53 = "H"i 
eiutab£63 = "L"? 
e«?utab£73 = "It"? 
ewtab£8J » U SP M ? 
e*utab£93 = "PSW"? 
e«wtabCiQ3« "AND"? 
emitab[li3= "OR* J 
e«jutabC123= "MOD"; 
equtabt!33* "MOT"! 
equtab£i43= "XOR*? 
esutab£153= »SHL B ? 
e«sutahtl63= "SHR*? 
«=iucount » 14? 



int isidchr(c) /* return true if c is lesal character in identifier */ 

char c" 

{ 

return isalpha(c) S* c — '$' i! isdisitCc) »J c « \'\ 
> 



int isidstrt(c) /* return true if c is lesal as first char of idenfitier ft/ 

char c? 

{ 

return isalphateH 
) 



int streqfsh s2) /* return true if the two strings are eiual */ 

char HU *s2i 

{ 

if (*sl *= «s2} return 0? /♦ special case for speed */ 

while (#sl> if (*si++ != #s2++) return 0? 

return i*$2) 7 i U 



sfcip.jtf5P(strptr) /* skip white space at ftstrptr and codify the ptr */ 

char *#strptr? 

{ 

while (i5SPaceC**strptr>) <«strptr)++? 



strcPY2(sijs2) /ft copy s2 to si» converting to upper case as we so ft/ 

char *sU *s2; 

{ 

while («s2) 

ftsi*+ = toupper(«s2++)f 

*sl = '\0'J 



/ft 



General -purpose str ins-rep lacer&ent function? 

'string'' is pointer to entire string* 
'insstr' is pointer to string to be inserted, 
'pos' is the position in "string*' where 'insstr' 

is to be inserted 
'lenold-' is the len3th of the substring in •'string-' 

that is being replaced. 



*/ 



repl str (string* insstr* pos* lenold) 

char *string 5 ftinsstr? 
/ 

int length) i» i» k* x5 

length « strlen(strins)* 
x = strleriUnsstr)! 
k » x - lenold* 
i = string ♦ pos + lenold! 
if ik) ffiovi«ei»(i> i+k* length - (pos ♦ lenold) + i)? 
hr .(i » Oi i « pos? i < xf i++» j++) 
strinsUJ = insstrCi]? 



error (ass) 
char ftfssg; 



{ 

priutf ("\n\7%5S %ds %& *jcfilnaa»Iino»»53)» 
errf » I J 
} 



abort (ass) 
char #*59? 



error (ass)? 

putchar('\n')? 

if (cbufp = incbuf) fclose(incbuf)? 

fdose(fbuf)? 

exit(-i)? 



sferk2<n) /* allocate storage and check for out of space condition */ 
{ 

int U 

if ((i = sbrk(n)) » ERROR) 

abort ("Out of storage allocation $pace\n")> 

return i* 



busptxtp(str) /t bunp txtbufp bv size of riven string + i */ 

char *str* 

{ 

txtbufp +* strlenCstr) + 1? 

if (txtbufp > txtbuf + (TXTBUFS1ZE - 8)) 
abort ("Out of text space. Increase TXTBUFSIZE and rscoj&pila CASH")" 



int noreHid) /# return true if identifier is exeapt froR relocatetion #/ 

char *id» 

{ 

if (ise«iu(id)) return 1? 

return 0» 



int iseiu(str) /* return true if given string is in the E8U table */ 

char *str; 

{ 

int it 

for (i = OS i < e«tucount> i++) 

if {stre^str^utabCil)} 
return IS 
return 0? 



char *isef(str) /* return nflist entry if given steins is an external t/ 

char *str> /* function na»e */ 

C 

int i> 

for (i a os i < nf count? i*+) 

if (stre«?(str»nflistCi3)) 
return nflistCiJ! 



return 0; 
} 



TITLE 'LRUN Library Run~-a utility for .L8R files' 
VERSION EQU 1$0 ?82-08-06 Initial source release 
PAGE 60 

Requires HAC for assembly. Due to the complexity of 
the relocation macros* this program say take a while 
to assemble. Be prepared for periods of no disk activity 
on both passes before pressing panic button. G.P.N. 



(c) Copyright 1982 Gary P. Movosielski 
All rights reserved. 

The following features courtesy of Ron Fowler? 

1) command line r«parsins and repacking (this allows 
the former load-only program to become a load & run 
utility). 

2) code necessary to actually execute the loaded file 

3) the HELP facility (LRUN with no arguments) 

4) miifndi error routines to avoid warm-boot delay 
(return to CCP directly instead) 

Remission to distribute this prosrai in source or 
object form without prior written aproval is granted 
only under the following conditions. 

i. No charge is imposed for the prosraa. 

2. Charges for incidental costs including 
but not limited to media* postages tele- 
communications » and data storage 6a not 
exceed those costs actually incurred. 

3. This Notice and any copright notices in 
the object code remain intact 

(signed) Gary P. Novosielski 



LRt$ is intended to be used in conjunction with libraries 
created with LU.COM* a library utility based upon the 
groundwork laid by Michael Rubenstien* with some additional 
inspiration from Leor Zolman's CLIS librarian for .CRL files. 

The user can place the less frequently used command (.COM) 
files in a library to save space* and still be able to run 
them when required* bv typings 

LRUN <normal command ]iM>. 
The name of the library can be specified* b\ii the greatest 
utility will be achieved by placing all commands in one 
library called CC8U1ANB.1JI?* or some locally defined name* 
and always letting LRLW use that name as the default. 



Syntax! 

Lf&JN C-<lbrname>3 <command> f.<parameters>3 

where? 

<lbrname> is the optional library name. In the 



distribution version* this defaults to 
COMNANfi.LBR. If the user wishes to use a 
different nane for the defaults the 8-byte 
literal at DFLTNAH below my be charged to 
suit local reiuireiaants. The current drive 
is searched for the .LBR file* and if not 
found there» the A.* drive is searched. 
**Note that the leading minus sisn (not a part 
of the naae) is required to indicate an 
override library naoe is being entered. 

<coiaand> is the na»e of the .COM file in the library 

<line> is the (possibly eaptv) set of parameters 
which are to be passed to <cor&sand>> as in 
normal CP/M syntax. Notice that if the 
library nai&e is defaulted* the syntax is 
siaph". 
LRUN Ccowand lint) 

which is just the noma! cossand line with 
LRUN prefixed to it. 



€SYS 


SET 





8KEY 


SET 


1 


tCON 


SET 


2 


mm 


SET 


3 


SPUN 


SET 


4 


asT 


SET 


5 


€010 


SET 


6 


SRIO 


SET 


7 


SSIO 


SET 


8 


SMSG 


SET 


9 


§INP 


SET 


10 


my 


SET 


11 


SVER 


SET 


12 


€L0G 


SET 


13 


gDSK 


SET 


14 


mn 


SET 


15 


gas 


SET 


16 


mm 


SET 


17 


£NXT 


SET 


13 


toa 


SET 


19 


SFRD 


SET 


20 


&m 


SET 


21 


mm 


SET 


22 


®m 


SET 


23 


§CUR 


SET 


25 


sdha 


SET 


26 


§CH6 


SET 


30 


SUSR 


SET 


32 


mn 


SET 


33 


&m 


SET 


34 


mi 


SET 


35 


mc 


SET 


36 


tLOGV 


SET 


37 ?2.2 only 


mm 


SET 


40 52.2 only 


? 

CPHBASE EQU 





BOOT 


SET 


CPHBASE 


boos 


SET 


HWT+5 



TFCB 


m 


B00T+5CH 


TFCBi 


E8U 


TFCB 


TFCB2 


equ 


TFCB+16 


TBUFF 


Em 


B0QT+80H 


TPA 


EQU 


BOOT+iOOH 


CTRL 


E6U 


' M ?Ctrl char raask 


CR 


SET 


CTRL AND 'W 


LF 


SET 


CTRL AND 'J' 


TAB 


SET 


CTRL AND 'V 


FF 


SET 


CTRL AND a' 


BS 


SET 


CTRL AND 'H' 


FALSE 


SET 





TRUE 
« 


SET 


NOT FALSE 


5 

CPM 


MACRO 


FUNCOPERANkCGNBTN 




LOCAL 


PAST 




IF 


NOT NUL CONDTN 




DB 


( J&CONDTN ) XOR 8 




DM 


PAST 




BffilF 


>*of not nul condtn 




IF 


NOT NUL OPERAND 




LXI 


D» OPERAND 




ENDIF 


5? of mt mil operand 




IF 


NOT Nil FUNC 




HVI 


C.ttRJNC 




ENDIF 






Ltb-L 


BDOS 



PAST! 



ENBH 



BLKMOV MACRO 


BEST,SRC£,L£N,COND 


LOCAL 


PAST 


JMP 


PAST 


KBjWoiht« 

MOV 


A,B 


ORA 


C 


R2 




DCX 


B 


MOV 


A, ft 


INX 


H 


STAX 





INX 


D 


JMP 


€BMVSBR 


BLKMOV MACRO 


BST,SRC,LN,CC 


LOCAL 


PST 


IF 


NOT Nil CC 


DB 


( MC ) XOR 8 


m 


PST 


ENDIF 




IF 


NOT Nil DST 


LXI 


B,BST 


ENDIF 




IF 


NOT NUL SRC 


LXI 


H»SRC 


ENDIF 




IF 


NOT NUL LN 


LXI 


B,LN 


ENDIF 




CALL 


SBHVSBR 


IF 


NOT NUL CC 



PST: 

enbif 

ENBN 
PAST: BLKMOV DEST*SRCE,LEN*COND 



OVERLAY SET 





i Macro Definitions 

* 


I 

RTAG MACRO 


LBL 


TxmLm 


$+2-§BASE 


ENBM 




rgrnb macro 


LBL 


7WAM. EQU 


OFFFFH 


ENDH 

■ 




* 

R MACRO 


INST 


8RLBL SET 


GRLBL+i 


RTA6 


%€RLBL 


INST-SBASE 


enbm 

• 




NXTRLB MACRO 


m 


§RLB SET 


rmm 


SNXTRLBSET 


eaxTRLO + i 


ENBM 





Enter here fro& Console Coasarid Processor (CCP> 
CCPIN ORG 



TPA 
INTRO 



•Juap around sisnon 



SIGNQNs 



'LRUN Ver ' ! Sisnon aessase 
VERSIGM/iO+'O' 



MROs 



OB 


VERSION MOD 10+'O' 


OB 


CRtLF 




OB 


' Copvrisht (c) 


1982 Garv P. Novosielski ' 


BB 


'$',CTRL AND -T 




LXI 


H»0 


sset the CCP entry stackpointer 


BAB 


SP 


(used only if HELP request 


SIB 


SPSAVE 


1 is encountered) 


CPM 


MSG.SIGNQH? 


'Display sisnon 


CALL 


SETUP 


[initialize. 


LHL8 


BBOS+1 


'find to? of »eaory 


MOV 


A»H 


Spase address 
'Fori destination... 


sut 


PAGES i 


...address in 


MOV 


D,A 


!BE pair. 


MVI 


E,0 




PUSH 


B 


'save on stack 



BLKMOV ,fBASE,SEGLEN ?Move the active sessent. 



/# 



*/ 

aainO 
{ 



This pwraia is a single exaaple of how to us* 

Bob Mathias's floating point package. 

After coapilins this and the FLOAT.C library? link by savins? 

A>clink floatsut -f float <cr> 

Notes the "printf" function resulting froa this linkage 
will support the *e" and "f" floating point conversion 
characters* but the regular "printf" would not. The reason? 
the special version of B .spr" in the FLOAT.C source file 
is loaded before the library version of "_spr 8 j and 
thus supports the extra features. 



char slCSJ, s2£5J; 

char string£30)» 

char sbC303? 

int i? 

atof(si."0")? 

while (1) ( 

printf ("sum = XHUfWSsl); 

printf* "XnEnter a floating number? ")* 

fpadd(5i5si»atof(52»set5(5trins)))? 



#include "bdscio.h" 



/# 



STDLIB1.C — for BBS C vi.46 — Leor loiifian, 3/5/82 

The files ST0LIB1.C and STDLIB2.C contain the source for 
all functions in the 0EFF.CRL library file. 

Functions appearins in this source file! 



fopen 


setc 


unsetc 


9etu 


fcreat 


putc 


PUt&S 




f flush 


f close 






atoi 
strcat 


strcip 


strcpY 


strlen 


isalpha 


isupper 


is lower 


isiisit 


isspace 


toupper 


tolowsr 




qsort #* 


- *V>\» 






initw 


initb 


setval 




alloc * 


free * 






abs 


MX 


miri 





# — Coaptation of alloc and free sust be explicitly enabled bv 

swapping- the comentins of the ALLOCS and ALL0CJ3FF definitions 
in BDSCIO.H. 

** - Ssort has been rendered more efficient bv bavins the M _swp a 
function use the "faovsei" library function to swap objects? 
allocating temporary space on the stack. The defined sy&bol 
u HAX>QSORT-«IBTH B specifies the largest allowable size for a 
sinsle instance of the objects beins sorted. If you ever plan 
to sort object of sreater width, chanse this define! 



*/ 



#define 



HAXJBORTJHDTH 513 



/* Larssst object "•ssort" 
can sort */ 



*/ 



Buffered I/O for d 



Idefine STB.IN 
#define STB_0UT i 
#define STBlERR 4 

idefine BEVJLST 2 
#def ine OBLROR 3 
tdefine DEVJUN 3 



int fopen(filenaie»iobuf} 
FILE *iobufl 
char *filena»e! 
{ 

if <(iobuf -> -fd a openifilfinaas.OKO) return £*#0R? 

iobuf -> -nleft = Of 

return iobuf -> Jd' 



int setd iobuf) 
FILE *iobuf? 

{ 



/* 



*/ 



int nsecs? 

if (iobuf == STBJN) return setcharO; 
if (iobuf » DEVLRDR) return bdos(3)i 

if (!iobuf~>_nleft-~ ) /* if buffer «BFtY> fill it up first */ 
{ 

if ((nsecs * read(iobuf -> Mi iobuf -> -buff, NSECTS)) <= 0) 

return iobuf »> _nleft++* 
iobuf -> .nleft = nsecs * SECSIZ - is 

iobuf -> .next? = iobuf -> -buff* 

1 
j 

return *iobuf->_nextp++» 



Buffered "unset* a character routine* Only ONE 

bvte aav be "unsotten" between consecutive "sett" calls. 



int unsetcic? iobuf) 
FILE *iobuf? 
char c? 
{ 

if (iobuf « STD_IN) return unsetchCc)" 

if ((iobuf < 7) i! iobuf -> -nleft « (NSECTS * SECSIZ) ) return ERROR? 

* — iobuf -> .oextp = c? 

iobuf -> -n1«ft++S 

return OK* 
} 



int setw( iobuf) 
FILE #iobuf? 
{ 

int a s b? 

if (((a=setd iobuf)) >= 0) &6 ((b* setdiobuf}) X))) 
return 256*b+a? 

return ERROR! 
} 



int fcreatCnase* iobuf) 
char *naie? 
FILE siobuf? 



if ((iobuf -> M * create naae)) < ) return 
iobuf -> -nextp « iobuf -> -buff* 
iobuf -> .nleft = (NSECTS * SECSIZ)? 
return iobuf -> _fdf 



int putc(c» iobuf) 
char ci 
FILE *iobuf? 



if (iobuf C~ 4) /* handle special device codes* */ 

{ 

switch (iobuf) 

- C 

case STCuOUTs return putchar(c); /♦ std output ft/ 

case DEVJ.ST: return (bdos(5*c))? /« list dev. */ 

case DEV.PUNJ return (bdos(4ic))? /* to punch */ 

case STDJ-RR: if (c = 'W) /* to std err #/ 

bdo5(2,'\r')? 

return bdos(2*c)? 
■». 

if (iiobuf -> .n left—) /» if buffer full, flush it */ 
C 

if ((write(iobuf -> -fd, iobuf -> -buff, NSECTS)) != NSECTS) 

return ERROR? 
iobuf -> _nleft = (NSECTS # SECSIZ - D? 
iebuf -> -nextp = iobuf -> _buff? 
} 
return ftiobuf -> _nextp++ » c? 



int putw(w> iobuf) 
unsigned w? 
FILE ftiobuf? 
{ 

if ((putc(»X25k iobuf) X) ) U (putdw / 256, iobuf) > 0)) 
return w? 

return ERROR? 



int f flush (iobuf) 
FILE ftiobuf J 
{ 

int is 

if (iobuf < 4) return OK; 

if (iobuf -> -nleft ~ (NSECTS ft SECSIZ)) return OR? 

i ■ NSECTS - iobuf->-nUft / SECSIZ? 

if (write* iobuf -> -fd, iobuf -> -buff? i) !- i) 

return ERROR? 
i = (i-i) * SECSIZ? 

if (iobuf -> -nleft) { 

isovffiea(iobuK>-buff + i> iobuf~>_buff, SECSIZ)" 

iobuf -> -nleft += i? 

iobuf -> „nextp -* j; 

return seek(iobuf-X.fdi -is i)? 



iobuf -> ..nleft = (NSECTS ft SECSIZ)? 
iobuf -> ..next? = iobuf -> -buff? 
return OK? 



} 



int fc lose (iobuf) 
FILE ftiobuf? 



if Uobuf < 4) return OK? 
return close (iofcuf -> -fd)? 



/* 

Sorae strins functions 

*/ 

int atoi(n) 
char *n» 

int val* 

char c? 

int sisn? 

val=0? 

5isn=i? 

while <(c a *n! = '\t' !i c= - ') ++n? 

if k« '-') (sisn = -is n++J} 

while ( isdigitk = *n+*)) val = val * 10 + c - '0' 

return sisn*val> 



char *£trcat(si*s2) 
char Hl» *s2» 
{ 

char #teap? teffip=si? 
7 whileUsi) si++; 

do *si++ = *s2? anile C*s2++)? 

return tei&p? 



int stra&plsit) 




char 

f 


sE3* tE3! 




t 


int i? 

i = 0? 






while (bIi! 


== tCi3) 




if (sti++3 = '\0'> 






return 0? 


} 


return s£i3 


- tm? 


char *strcpY(s!?s2) 




char *sl* #s2? 




{ 








char steiBP? 


teiP=si? 




»hile (*si++ 


* *s2++)» 




return teap? 




1 






int ! 


strlen<s) 




char 


*S5 




C 


int lens 





len=0? 

white (#5++) len++? 

return ten" 



/* 

Soiae character diddlins functions 
*/ 

int isalpha(c) 
char c? 
{ 

return isuppsr(c) !' islowerfc}? 



int isupperk) 
char c? . 
{ 

return c>='fi-' tt c<*'Z'? 



int i5lo»er{c) 
char c* 

return t>=V ?<& c<= / z / * 



int isdisitk) 
char c* 
{ 

return c>*'0' tt cOs'9's 



int isspace(c) 
char c? 
{ 

return c«' y M c—'tt' 'I c—^n' 



char touPFftr(c) 

char c? 

C 

return istewerk) ? c-32 s c? 



char totewer(c) 
char a 

return isupper(c) ? c+32 s c* 
} 



^sorttbasei nel» width* coaipar) 
char #base? int <*compar)0? 
unsisned width? nel? 
{ int i» j» 

unsisned sap? nsap* tl? 

int jd> t2; 

tl = nel * width? 

for <nsap = nel / 2? neap > 0? n3ap /= 2) { 
gap « nsap # width? 
t2 = sap ♦ width? 
H * bass + sap? 

for <i « t2? i <= tl? i += width) 
for <j = i - t2? j > 0? j -= sap) { 
if H*coffiparMbase+J: ifri) <=0) breaks 
_swp( widths base+ji jd+j)? 



-5wp(w»a»b) 
char *a»*b» 
unsisned w? 
t 



char swpbufCMAOSORTJiIDTW; 
»oviafifflU»5uapbuf»w)? 
aovMi*b*a 3 w)? 
aovffi€R(swapbufjb»w)* 



} 

/* 
#/ 



Initialization functions 



initw<var»strins) 
int #var? 
char *strift9? 
{ 

int n? 

while <(n = setvaH&strins)) !« -32760) *var++ = n? 
} 

initbivars string) 

char #var> #strin9? 
/ 

V 

int n* 

while iin = setvaK&strins)) ?= -32760) *var++ « n! 



int setvaHstrptr) 
char Mstrptr* 
{ 

int n? 

if (!**strptr) return -32760? 

n « atoi(*strptr)» 

while f#*strptr ft *(*strptr)++ !- '»')! 

return nf 



/# 

Storage allocation functions! 
*/ 

#ifdef ALLOCJfri /# Compilation of alloc and free is enabled only 

when the ALLOC-ON svabol is #d*fined in BDSCIQ.H */ 

char saUodnbvtes) 
unsigned nbvtes? 
{ 

struct -header *p> *q* *cp* 

int nunits; 

nunits - 1 + CnbYtes + Csizeof C-base) - U) / sizeof (-base)* 

if ((q * -alloc?) ==NULL) { 

-base.-ptr = _allocp = q - L.base? 
-bass. -size = 0? 
} 

for Cp = q ~> -Ptr? * q 5= p? p = p -> -ptr ) { 
if Cp -> -size >« nunits) { 

if Cp -> -size = nunits) 

q -> -ptr = p -> -ptr? 
else { 

p -> -size -= nun its 5 
p f« p -> «size? 
p -> ~siz$ = nunits? 
} 

..allocp = q* 
return p + 1? 
} 
if (p « -allocp) C 

if CCcp = sbrfdnunits * sizeof C-base))) = ERROR) 

return NULL? 
cp -> -size « nunits! 

freeCcp+i>? /* r«Baab«rt pointer arithmetic! */ 
p * -alloc?? 



free Up) 

struct -header *ap? 



struct -header *p» *q? 

p = ap - U /* No need for the cast suhen "ap" is a struct Ptr */ 

for Cq » _a1?ocp? !(p > q && p < q -> -ptr)? q * q -> -ptr) 
if Cq >= q -> _ptr t& Cp > q Ji f < q -> -Ptr)) 
break? 
if Cp + p -> .size = q -> -Ptr) { 

p -> -size + s q -> -Ptr -> -size* 
p -> -ptr = q -> „ptr -> -ptr? 
} 
else p -> -Ptr = q -> -ptr* 

if Cq * q -> -size « p) { 

q -> -size += p -> -size? 



i -> -rtr a p -> .ptr? 
> 
else * -> -ptr = p? 



-a)1ocp = «»' 
} 

ftendif 



/* 

Nov seas really hairy functions to wrap things uf<* 
#/ 

int abs(n) 
{ 

return (n<0> ? -n i n! 
} 

int nxU«b) 
{ 

return (a ) b) ? a : b! 



int »inte>b> 
{ 

return ia <~ b) ? a s b; 



/* 



#/ 



ST0LIB2.C — for BBS C vl.46 — Leor Zolaan, 3/5/82 

This file contains the source for the follouins 
library functions! 



printf 


fprintf 


sprintf 


-spr 


scanf 


fscanf 


sscanf 


.sen 


fsets 








puts 


fputs 






swapin 









include "Mscio.h" 

char toupperO* isdisitO? 

printf (format} 
char #for»at? 
{ 

char lineCMAXUNEJ? 

.5pr(lin«i&forBat)> 

putsUine)* 
} 



/* use "-.spr* to fori the output #/ 
/# and print out the line */ 



int scanf (format) 
char *f ornate 
{ 

char UneEMAXLINEJ; 

setsUine)? 

return ..scnUine.&forjiat); 



/* set a line of input from user #/ 
/* and scan it with B -scn" */ 



int fprintf (iobuf» format) 
char #foraat? 
struct -buf #iobuf; 
£ 

char textEHAXLINE]? 

„spr(textj&for!Fiat)? 

return fputs(textiiobuf)* 



int fscanftiobuftforaat) 
char *foriat» 

struct -buf *iohuf* 
t 

char textCMAXLIN£3? 

if (! fsets ( text >iobuf)) return 0? 

return ^scn< t*xt?&f or-anat ) ? 



5Printf(buffer*fomt) 
char *buffer* sforiaat; 
t 



.spr ( buffer* If or-mat)? /* call -.spr to do all the isork #/ 



int sscanfUine» format) 
char *line> #fon&at» 
C 

return _scnnine»&fonjiat)? /» let -sen do ail the work */ 

} 



_spr(line>fBt) 
char *lin€ ? **fmt» 
{ 

char _uspr<)> c> base* asptr* *for»at? 

char wbufCMAXLM], *wptr, pf, Uflas, zfflas? 

int width* precisions *arss? 

forraat = *f»t++? /* fit first points to the format sir ins */ 
arss = fits /* now f»t points to the first ars value */ 

while (c = #for»at++> 
if (c » '%') i 
wptr = wbuf? 
precision = 6? 
Uflas = pf = zfflas = 0? 

if Hfortat « '-') { 
foraat++? 
Uflas++? 
} 



if (ftfornat == '0') zfflas+f? /« test for zero-fill */ 

width = (isdisit(*foroat)) ? -sv2(fcforaat> ' 0? 

if He = #fon&at++) « V) { 

precision * _sv2(&foraat)? 
pf++! 

c s #f©raat*+t 
} 

switcMtouppeHc)) C 

case 'D'J if (*arss i 0) { 

*w»tr++ = '-• 
Hrss = -*ar3s? 
uidth — s 

X 

J 

case 'U's base = 10? soto val? 

case 'X's base = 16? soto val? 

case -'O-'s base = 8? /* note that arbitrary bases can be 

added easily before this line */ 



h 



val i m dth -* _uspr (&wptr t *arss++j base) ? 
soto pad? 

case 'C's *wptr++ = *arss++? 
width—? 



soto pad! 
case 'S'» if CJpf) precision = 200; 

SPtf = *aT95++i 

while (#5Ptr && precision) { 
*wptr++ a *sptr++! 
precision—! 
width—* 



pad J #wptr = '\0'"5 
pad2* wptr * wbuf! 
if (lljflas) 

nihil e (width— > 0) 

*line++ = zfflas ? '0' : 





while (*line = *wptr++) 




line++* 




if (lifUs) 




while (width— > 0) 




*line++ = ' '! 




break! 




defaults *line++ = c? 




} 








else *line++ = c! 




*line = '\0'? 


} 




/* 





Internal routine used by "-.spr" to per font ascii- 
to-deciaal conversion and update an associated pointer! 
#/ 



int -.sv2(sptr) 
char **srtr* 




int n* 

n - 0! 

ahile (isdi9it<**sptr)> n » 10 * n + *f*sptr)*+ - 

return n" 


'0'? 



char -uspHstrins* h? base) 
char #*strins! 
unsigned n* 
{ 

char length* 

if (n<ba$e) ( 

*(*strin3)++ a (n < 10) ? n + 'C 8 n + 55" 
return i; 

}. 

lensth « _uspr (string* n/base> base)* 

-uspHstring* n?.base* base)! 

return length ♦ 1! 



/* 

General fonsatted input conversion routine, "line" points 
to a string containing ascii text to be converted* and •'fiat" 
points to an arsuaent list consisting of first a format 
string and then a list of pointers to the destination objects. 
*/ 

int -scn(line»f»t) 
char *li&e> ♦♦frat? 
{ 

char sf» c. base* nr asptr-j *for*at? 

int sign* val? **args? 

fonMt = *ffflt++; /* fat first points to the format string */ 
arss s fat? /* now it points to the arsjist */ 

n » 0? 

while (c = #foreatH-) 

{ 

if Usspace(c)} continue* /* skip white space in foraat string */ 
if (c J* 'X') /* if not X,.wist Batch text */ 

{ 

if ic !- »iss(&line)) return n? 
else line++? 



else 
{ 


/* process conversion 

sisn = i? 
base = 10? 
sf = 0? 

if Uc = tforiit**) — •'*') 
{ 

si++i /* if 

c * *forifct++' 


*/ 














»*" 


given? 


supress 


asi 


?isnisnt 


*/ 




switch (toupper(c)) 

r 
















case -'Y/i base = 16? 
goto doval? 
















case 'O's base - 8* 
soto doval? 















case 'b'i if Ligsf&line) = '-') { 
sign * -1* 
1 ine++? 



doval J case 'IT? val = 0? 

if CbcLissteJinehbase) = 

return n? 
while (Cc *-J>rt*!iM+*»bi5e)) != 255) 

val s val * base + c" 
line—? 
break? 

case 'S'* .i95(Sr!ine')> 
sptr = #args? 



while Cc = #line++) { 
if (c = ifoririat) { 
format**? 
break* 

} 

if (!sf) *sFtr*f = c; 
■», 

if i*.st) { 

#5Ptr « '\0"5 
ar95++; 
} 
continue* 

case 'C's if <!sf) { 

poke(*ar95++, *line); 

n++! 
} 

line++" 
continue? 

default." return n* 
} 

ii (!sf) 
{ 

**arss++ « val # sisn? 
n++? 

if (inline) return n? /* if end of input string? return #/ 
return n? 



char ..issfsptr) 
char *#sptr? 
\ 

char c? 

while (isspace(c = *»sptr)) *+*5Ftr? 

return (c)" 
} 

int _bc(c»b) 

char c?b? 

/ 

i 

if (isalphak = toupper(cH) c -= 555 
else if Cisdi3itk)) c -=0x30? 
else return ERROR? 

if k > b-1) return ERROR? 
else return c? 



puts(s) 
char *s? 
{ 

while C*s) Putchar(*s-H-)> 



char *f9ets(s?iobuf) 



char *s? 

struct „buf *iobuf? 

{_ 

int count* c? 

char #cptr? 

count = MAXLINE? 

cptr =_$> 

if ( (c.? wtcdobuf)) = CPMEOF \\ c — EOF) return NULL? 

do { 

if <(*cPtr++ = c) == '\n') { 
if (cptr>s+l && «(cptr-2) = '\r') 

#<-cptr - 1) = '\n'? 
break; 
} 
> while kount- » <c*9«tc(iobuf)> != EOF && c != CPMEOF}? 

if <c » CFtECF) un»etc(c»iobuf)J /* push back control-Z */ 

*cptr = 'NO'? 
return s? 



fputsteiiobuf) 
char *s? 

struct _buf *iobuf? 
{ 

char c? 

while (c = *s++> { 

if (c = 'W) putc<'\r'»iobuf)5 

if <witc(e»iobuf) » ERROR) return B$GR? 

} 

return OK? 



5»apin<naffie*ad#) 
char #naae? 
{ 

int H' 

if <i fd = open(naKiO)) = ERROR) ( 

printfCSwapin? cannot open XsXnNnaifte)? 

return ERROR? 
x 

i 

if «r«ad(fd,*ddr,512H < 0) C 

printfPSaapin? read error on 7.s\r» B jnaie)S 

close(fd)? 

return ERROR? 
} 

close(fd); 
return OK? 



WlUOP.e vi.l 3/21/82 

BDS C Command-line Wild-card expansion utility 

Written bY Uor Zolaan 

Lets aahisuous file names appear on the command line to C progress* 
automatically expanding the parameter list to contain all files that 
fit the afn's. 

An afn preceded by a "!" causes all naaes matching the siven afn to 
be EXCLUDED fros the resulting expansion list. Thus? to yield a 
command line containing all files except "CCfr?" ftiiSi you'd says 

A>Frogname !*.com <cr> 

Another example! to set all files on fis ixapt .C files: say! 

A>prognam bs*.# !bi*.c <cr> 

When giving a •!" afn? "*■ chars in ttii string Batches to the end of 
either the filename or extension* iust like CP.% but "7" chars match 
ONE and (M.Y ONE character in either the filename or extension, 

To use WILDEXP* begin your "main" function as folloms? 



mainUrgc>argv> 
char #*argy' 



/* local declarations #/ 
uildexpt&argcjlfargv)* /* first statement in program */ 
dioinit(Starsc 5 argv)$ /* if using CIu» put this here ♦/ 



and link WILDEXP.CRL in with your program. That's all there is to 
it' note that "wildexp* uses the "sbrk" hMiim to obtain stor-ase* 
so don't go playing around aith memory that is outside of the 
external or stack areas unless you obtain tta memory through "sbrfc" 
or "alloc* calls. 



*/ 



#include "bdscio.h" 

idefine MAXITEMS 200 

tdefine SEARCrLFlRST 17 

tdefine SEARCHJOT 18 



/* sax no. of items after expansion */ 
/* BDOS calls */ 



yildexp(oargcp 5 oarsvp) 
int #oargcFi 



char 


***oargvp? 


{ 








int 


nargc? 




char 


**nargv* 




char 


#*oarsv; 




int 


oarsc? 




char 


fcbC363f 



/* pointer to old argc */ 
/* pointer to old arsv */ 

/* new argc #/ 
/* new argv */ 
/* old arsv */ 
/# old argc */ 
/* fcb used for sm-ch for first/next calls *i 



char 


daapos; 


char 


hrsijtimi 


char 


tapfn£203, 




#tifipfnp? 


char 


*notfns£2Q3; 


int 


notcount? 


char 


cur-drive? 


int 


iiijk* 



/* value returned bv search calls */ 
/* used in starch routine */ 
/* te»p filenaiae buffer #/ 

/* list of !<ifn> entries */ 
/* count of entries in notfns */ 
/* currently lossed drive #/ 



cur_drive « bdos(25); 

oam = #oar9vp? 
oarsc = *oarscp? 
narfc = 1? 
notcount = 0? 

if (tnar-sv = sbrfc* MAX ITEMS * 2 + 2)) = ERROR) 
return ERROR? 

for (i = i? i < oarsc? i++) 

if toarsvH3[03 =» '!') I 
if (i « l) { 

oarsvCoarscl = "*.*"? 
oarsc++? 
} 

notfns£notcount++3 * &oar9v£i3£13» 
} 
else if <!haswild<oarsv£i3)) 

narsv£narsc++3 = oar3v£i3? 
else { 

setfcMfcb*oarsv£i3); 

tspfnp = tffipfn? 

if mrapfnm s ©arsv[i3M> » '«') { 
t»pfnC03 - oarsvCi3£03? 
tapfnp = tffipfn + 25 
bdosU4,tw»fnC03 - 'A'')? 



first.tiM = TRUE; 

while (i) i /* find all aatchins files */ 

daapos = bdos<first_tiae ? SEARCH-FIRST i SEARCHJOT, 

fcb)s 
if fdsapos » 255) break? 
first-tiss - FALSE' 

JftcknaMftapfitFitBASE + 0x80 + dsapos * 32) )? 
if ((narsvCnarscl » sbrMstrlenttapfn) + !)) = ERROR) 

return ERROR? 
str cpv(nar3vCnarsc*+3 ? tipf n) * 
1 

bdos( 14* cur-drive)? /* restore to current drive */ 

} 

for- (i * 0? i < notcount; i++) 

for (J = i* j < nar-fc? j++) 

while <satch(notfns£i3 J narsv£j3»cur_drive)) 
{ 

if CJ = —narsc) 

break? 
for (k « j? k < narsc? k++) 



narsvEfc] = nar5vEk+13* 



♦oargcp = narsc? 
*oarsvp = narsv; 
return 0? 
} 

hacknaae(destt source) 
char #dest> #source* 
C 

int i.j" 

j = 0? 

for U = U i < 9? i++) 
C 

if (source£i3 « ' •'} fcreak! 

de5tf.J++3 = sourceEi3? 
*. 

if isounein != ' ') 

destfJ++3 = '.'*, 

for (i = 9; i < 12? i++) 

{ 

if (sourceCi3 == •*' ') break* 
<test[,*++3 = 5GurceEi3? 

i 

dest£j3 = '\0'5 

return dest? 



int haswild(fnaae) 
char #fnaffie» 
{ 

char c? 

while (c = *fr»aae++) 

if (c « '*' !!c» '?') 
return TRUE? 
return FALSE' 



} 



int aatcMwildnaai filnasb cur-drive) 
char swildnaau *fi1naab cur-drivei 
{ 

char c? 

if (vildnum != ':') 
£ 

if ifilnaaCU = ':') 

if <fi!naiC03 - 'A' '«* cur-drive) 

filnas +» 2? 
e)se 

return FALSE? 
) 

else 
£ 

if (filnaiCl] != '«') 

if (MildnafflEOJ - -'A" = cur-drive ] 
wildnass += 2? 



els* 

return FALSE? 



while (c = tttfildnaifrH) 
if <c == '?') 

if He = *filnaa++> & c !- V) 

continue; 
else 

return FALSE; 
else if (c = '*') 
{ 

while <c - *aildna») 
{ wildnam++* 

if (c = V) break; 
> 

while k * *filnaa) 
{ fjlnaffi++» 

if (c = V) break? 
} 
> 
else if it «= *filna»++) 

continue; 
else return FALSE; 

if (!#filn»J 

return TRUE; 
else 

return FALSE? 



ffr „ $/ 

/* #/ 

/* This is a library of private routines for us* with BDS C pros- */ 

/* sraas. The coisaent lines preceding each entry are intended */ 

/* to sive a sufficient explanation of the routine that follows, */ 

/* To link any of these routines to a 80S C prograffi, BtreW naae */ 

/* PRVUB as a arguaent following the naie of the i&ain prosraia in */ 

/# the CLINK cosaand line. */ 

/* */ 

/* */ 



/* 

Hove k bytes froa blki to blk2. 

The two blocks my overlap. 

Since k Bust be positive, this routine is linsited to 

covins blocks less than 32k in length. 

Added by M. Goldberg, 25-DEC-79. 
*/ 
movblMblki, blk2, k) 

char *blki, *blfc2f 

int k? 

{ 

int B*n*tiU! 

if Uk O 0) {! <!(t ' blki - felk2))) return; 

if (t > 0) Cb = 0? n = k!} 

else Ci * 1 - k? n = is) 

for *t = b; t < n? ++t) 
{ 

u * <t < O ? -t : t); 
**blk2 + u> = *(blkl + u)? 



/* 

ASCII counter — increaents a field of ASCII digits by ©m 
ArsuBents are a pointer to the field (high-order digit) 
and the length of the field. 

The routine stops if it encounters a non-disit character 
in the field. 

Added by H. Goldberg, 25-BEC-79. 
*/ 

asccntrCaddr, len) 
char #addr* 
int len? 
{ 

addr += len? 
do 
C 

if (!isdi9itW— addr))> break? 
if *++(*addr) <= '9') break? 
aaddr = '0'? 

while (— len)? 



Sends a CR-LF pair to tf^ CP/W LIST device. 



Added by «. Goldhers, 25-BEC-7?. 
*/ 

#define LF OxOA 
#define CR OxOD 
newlineO 

{ 

bdos<5, CR)5 bdos<5,U>5 



/* 

S«nds a line of dashes to the CP/il LIST device. 

The argument is the number of dashes in the line. 

Added bv «. Goldber-9, 16-FEB-80. 
*/ 
dashes (»> 

char n? 

£ 

char is 

for (i = 0? i < n? ++i) bdosi'Sr '-'); 

newlineO? 



/# 

Causes a block of bytes to be displayed at the CP/il 
console device as a vector of twHisit hex numbers. 
Spaces are used to separate one hex nunber froia another. 
It was written as a debus aidi that is, to be used to take 
a snapshot of a Rieffiorv during- prcsraa execution. 

The arguments are: 

blkp = a pointer to it^ beginning of the aeisory b\z*ck 
and 

n = the number of bytes in the block. 

Added by ft. Gol dbers* 6-WAR-80. 
*/ 

pathxtblkFi n) 
char fblkp? 
int nf 
{ 

char c? 
while fn~- > 0! 

( 

prhd(Uc = *blkp++) & OxFO) » 4>? 

prhdk I OxOF); 

putchaH' '); 

> 



/* 

Outputs a message U the PVrt console device and 

stops the program. The argument is a pointer to the 

message string. 

Added by H. Goldberg, 15-WAR-80. 
*/ 
stopdss) 

char J8SSC3" 



{ 

PUt5(ffl£9)5 

«titO? 

} 



/« 



*/ 



USERCGDE.Ci A Nice Idea Killed By A Stupid CP/M MisFeature 

Idea! Extend the filename syntax for user srith ALL fils I/O to 
allow a user area prefix of the fora "n/ a on ail filenames. 

Written by Leor Zolaan* 12/81 

** . FOR CP/H 2.x SYSTEMS ONLY! ! ! ** 



Generalised replacements for H open n t "creat" and "unlink" 
library functions? al logins a user area prefix to be attached 
to all filenaaes (except those used as arsunents to the "r ensue" 
function), The new filename syntax becomes? 

[whitespace3[nri/3td.*3Cfilenajae.ext3 

E.3> to reference file "foo.bar" on thi currently lossed disk in 
user area 7> you'd use? 

7/f oo. bar- 
To reference foo.bar in user area 9 on disk b: f you'd say? 
9/b* foo.bar 

and so on. The user area prefix roust alaays cose first if both it and 
a disk desisnator need to be specified. 

NOTE: THIS WHOLE THING DOESN'T REALLY WORK FOR WRITING FILES INTO 
USER AREAS DIFFERENT FROM THE CURRENTLY ACTIVE USER AREA, BECAUSE 
GODDAMN CP/M DOESN'T LET YOU CLOSE A FILE THAT WAS OPENED IN A US© 
AREA DIFFERENT FROM THE CURRENTLY ACTIVE ONE. DAMN.' .' .' ! f ! I ! ! ! - ! i ! ! ! ! f • .' 

To install this library) follou these steps* 

1) coapile this file (USERCODE. C) 

2) invoke CLIB and sive it the following coMtands: 

#o usercode 
*o 1 deff2 
#e 1 open 
#a open«old 
*e 1 creat 
*a creat-old 
*e 1 unlink 
#a unlink_old 
#c 
*i 

3) Link the pr-osraas you vish to have recosnize the user code 
on filenaaes by includins "-f usercode" on the CLINK 
Copland line. 



int open-oIdO? 
int creat-oldO* 
int unlink.oldO* 

openC filename* isode) 



return user code (^open-old? filenames mode)? 



creat(filenaae) 

r 

i 

return userccde^creat-oldj filename)? 



Qntink(filenaae) 
C 

return userccMte{&unlinfc-ci1dsfi]enaBs)» 
} 

int user cede (funcptr? filename? extra_ars) 

int (ffuncptr)O? 

char *fi1enaifie5 

int extra-ars? 

{ 

int it cur .user » new-user; 

char #savnairi* 

while (i55Pace(*filfinaffie)} filename**; /# skip over whitespacs */ 
savna» = filename* /* save in case of false start */ 

if (!i5di3it(*filenaae)> return (fffuncptr}(fil«naM>extra.ars)> 

cur.user s bdos(32> Oxff)? /# save current user nusber */ 

new^user = atoi( filename)? /* set new user nuaber */ 

while (i54mt(*++filemae)) /* skip over user nuaber text #/ 

a 

if (^filename !* '/' (I new-user > 31) 

return (*f uncptr) <savnaa 5 extra-ars)* 
bdos(32»new-user)i 

i = (*funcptr)(fi!enaffis + itextra_ars); 
bdos{32»cur_user)? 
return i! 
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CCC.ASM (C.CCC) VMS 



11/22/81 



NOTE: IF YOU ARE RUNNING UNDER MP/M II, BE SURE TO SET THE MPM2 
EQUATE TO U 

THIS IS THE BOS C RUN-TIME PACKAGE. NORMALLY, IT RESIDES AT 

THE START OF THE TPA (AT ADDRESS BASE+10CH. WHERE BASE IS EITHER 
OOOOH OR 4200H DEPENDING ON CP/M IMPLEMENTATION.) THE CODE 
GENERATED BY TIC COMPILER ALWAYS SITS IMMEDIATRY AFTER THE END OF 
THIS RUN-TIME PACKAGE CODE. 

EQUATE STATEMENTS IN CAPITAL LETTERS MAY BE CUSTOMIZED Bi THE 
USER IN ORDER TO CHANGE A) THE ORIGIN OF THE RUN-TIME PACKAGE, 
AND B) THE ORIGIN OF THE RUM-TIME RAM AREA. IF YOU WILL BE 
GENERATING CODE TO RUN IN A NON-CP/M ENVIRONMENT* SET THE CPM 
EQUATE TO ZERO AND MAKE SURE TO SET THE ORIGIN, RAM AND 
EXITAD EQUATES TO FIT YOUR CUSTOM RUN-TIME CONFIGURATION. 

THE "LXI SP.O" INSTRUCTION AT THE START IS REPLACED BY THE SEQUENCE: 

LHLB BASE+6 
SPHL 

BY CLINK AT LINK TIME. UNLESS THE -T OPTION IS USB WITH CLINK, 
IN WHICH CASE THE M LXI SP* REMAINS THERE AND THE VALUE USED TO 
INITIALIZE THE SP IS THE ARGUMENT GIVEN TO THE *-T" OPTION. 



TITLE 'BBS C Run-TiM Modyls (c.ccc) vi.45 11/22/81' 



0001 
0000 
0000 



0000 
0005 
0100 



0080 
0100 



CPM: £QU 



DMAVIO: EQU 



IF CPM 
EQU 



TPA: 

NFCBS: 

TBUFF: 

ORIGIN: 

EXITAD: 



EQU 
EQU 
ENDIF 



1 fTRUE IF TO BE RUN UNDER CP/M OR MP/M 
?TRU£ ONLY IF RUNNING UNDER MP/M II 

5TRUE IF USING DMA VIDEO LIBRARY ROUTINES AND 
JNEEB PARAMETERS INITIALIZED 

ISTART OF RAM IN SYSTEM (EITHER OR 4200H FOR CP/M) 

BASE+5 ?R£ST OF THESE USED BY CP/M-BASED CONFIGURATIONS. 

BASE+100H 

8 {MAXIMUM # OF FILES OPEN AT ONE TIi€ 

BASE*80H 

TPA 

BASE 5WARM BOOT LOCATION 



ORIGIN: EQU 



IF NOT CPM 

NEWBASE 
WHATEVER 



EXITAD: EQU WHENBONE 
ENDIF 



SFILL IN THE APPROPRIATE VALUES... 
ADDRESS AT WHICH PROGRAMS ARE TO RUN 
R/W MEMORY AREA FOR NOfKP/M CONFIGURATIONS 

(DEFAULT: JUST AFTER C.CCC UNDER CP/M) 
WHERE TO GO WHEN DONE EXECUTING 
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THE LOCATION OF THE JUMP VECTORS AND UTILITY ROUTINES MUST REMAIN 
CONSTANT RELATIVE TO THE BEGINNING OF THIS RUN-TIME MODULE. 

DO NOT CHANCE ANYTHING BETWEEN HERE AND THE START OF THE 
"IMIT* ROUTINE! !!!!!!! 



OlOO 

0100 310000 

0103 00 



ORG ORIGIN 

LXI SP,0 {THIS IS CHANGED BY CLINK TO LHLO BASE*5H 

NOP {THIS FIRST IS USUALLY TURNED INTO SPHL BY CLINK 



0104 0000 
0106 000000 
0109 000000 



! NOP 

! NOP! NOP 

! NOP! NOP 



S SIMPLE INITIALIZATION OR PATCHES MAY BE 
{INSERTED HERE, BUT BETTER TO DO ALL THAT 
JIN THE U INIT U ROUTINE 



010C CD4B03 
010F CB8607 
0112 C31304 



CALL INIT ?DG ARGC £ ARGV PROCESSING, PLUS MISC. INITIALIZATIONS 

CALL MAIN {GO CRUNCH!!!! 

JMP VEXIT {CLOSE OPEN FILES AND REBOOT 



0115 EXTRNS: DS 2 ?S£T BY aiNK TO EXTERNAL DATA BASE ADDRESS 

0117 8606 CCCSIZ: DM MAIN-ORIGIN {SIZE OF THIS CODE (FOR USE BY CLINK) 

0119 CODENDs DS 2 {SET BY CLINK TO (LAST ABBR OF COTE + 1) 

OHB FRERAM: DS 2 {SET BY CLINK TO (LAST ADDR OF EXTERNALS + 1) 



JUMP VECTORS TO SOME FILE I/O UTILITY ROUTINES: 



OilD C30F04 
0120 C31304 



EXIT? JMP 



VEXIT 



{LOADS -1 INTO HL Ah© RETlflNS 
{CLOSE ALL OPEN FILES AND REBOOT 



0123 C32E04 
0126 C37604 
0129C35A04 
012C C30205 



IF 
CLOSE? JMP 
SETFCB: JMP 
F6FD: JMP 
FGFCB: JNP 

ENDIF 

IF 
CLOSE: JMP 
SETFCB: JMP 
FGFD: JMP 
FGFCB: JMP 

ENDIF 



CPM 

VCLOSE ?CLOSE A FILE 

VSETFCB ?SET UP FCB AT HL GIVEN FILENAME AT DE 

VFGFD {RETURN C SET IF FILE FD IN A NOT OPEN 

VFGFCB {COMPUTE ADDRESS OF INTERNAL FCB FOR FO IN A 



NOT CPM HF MOT UNDER CP/H, FILE I/O ROUTINES 
{ARE NOT USED. 



012F 



013F77 

0140 23 

0141 77 

0142 23 

0143 77 

0144 Di 



SETFCB3: 



DS 

IF 

MOV 
INX 
MOV 
INX 
MOV 



16 {RESERVED 



M,A {THIS IS A PATCH FROM THE *VS£TFCB a ROUTINE, 

H JWHICH CAUSES THE RANDOM RECORD BYTES OF THE 

M,A ?FCB BEING INITIALIZED TO BE ZEROED. (FORMER 

H {VERSIONS HAD A "DS 30" ABOVE, SO THIS KEEPS 

M,A {ALL THE ADDRESSES CONSISTENT BETWEEN THIS 

D {AND EARLIER 1.4'S) 
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0145 CI 


POP 


B 


0146 C9 


RET 
PATCHNH: 




0147 CDAE04 


CALL 


SETNM ?AN0THER PATCH FROM "VSETFCB" 


014AC3C604 


JMP 

enbif 


SETNM3 



IF NOT CPM 

BS 14 ?KEEP ADDRESSES THE SAME FOR NGN-CP/M IMPLEMENTATIONS 

ENBIF 



T*€ FOLLOWING ROUTINES FETCH A VARIABLE VALUE FROH EITHER 
THE LOCAL STACK FRAME OR THE EXTERNAL AREA, GIVEN THE RELATIVE 
OF FSET OF THE DATUM REQUIRED IfflEBIATELY FOLLOWING Tffi CALL? 
FOR TIC "LONG DISPLACEMENT" ROUTINES, TIC OFFSET MUST BE 16 BITS, 
FOR THE "SHORT DISPLACEMENT 8 ROUTINES, THE OFFSET MUST BE 8 BITS. 





i LQNG-DISPU*C£MENT, DOUBLE-BYTE EXTERNAL INDIRECTION? 






FORMATS 


CALL LBEI 5 GET 16-BIT VALUE IN HL 
W GFFSET-FRGM-EXTRNS ? > 256 


014B El i 


JEI: 


POP 


H 


\<et address OF OFFSET 


014E5E 




NOV 


E,M 


5PUT OFFSET IN DE 


014F 23 




INX 


H 




015O56 




MOV 


D,M 




0151 23 




INX 


H 




0152 E5 




PUSH 


H 


?SAV£ RETURN ADDRESS 


0153 2A1501 




LHLB 


EXTRNS 


!ABB OFFSET TO EXTERNAL AREA BASE 


0156 19 




DAD 


D 




0157 7E 




MOV 


A,M 


JAND C€T THE VALUE INTO HL 


0158 23 




INX 


H 




0159 66 




MOV 


H,M 




015A6F 




MOV 


L,A 




015B C9 




RET 








! SHORT-DISPLACEMENT, DOUBLE-BYTE EXTERNAL INDIRECTION: 






FORMAT* 


,_ 


CALL SDEI ? GET 16-BIT VALUE IN L 
DB OFFSET.FROH.EXTRNS ? C 256 


015C El i 


iSX.1* 


POP 


H 




015D5E 




MOV 


E,M 




015E 23 




INX 


H 




015FE5 




PUSH 


H 




0160 1600 




MVI 


D,0 




0162 2A1501 




LHLB 


EXTRNS 




0165 19 




DAD 


D 




0166 7E 




MOV 


A,M 
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0167 23 




INX 


H 




0168 66 




MOV 


H,M 




0169 6F 




MOV 


L,A 




016A C9 




RET 








\ LONG-DISPLACEMENT, 


SINGLE-BYTE EXTERN INDIRECTION* 






FORMAT! 




CALL LSEI ? GET 8-BIT VALUE IN L 
BW GFFSET.FRONJEXTRNS ? >= 256 


016B El 1 


.SEIs 


POP 


H 




016C5E 




MOV 


E,M 




016D23 




INX 


H 




016E56 




MOV 


D,H 




016F23 




INX 


H 




0170 E5 




PUSH 


H 




0171 2A1501 




LHLB 


EXTRNS 


0174 19 




DAD 


B 




0175 6E 




MOV 


L,M 




0176 C9 




RET 








! SWORT-DISPLACErtENT, 


SINGLE-BYTE EXTERNAL INBIRECTIGNi 






PORMATJ 




CALL SSEI ? GET 8-BIT VALUE IN L 
BB OFFSELFROM.EXTERNS ? C 256 


0177 El < 


5SEU 


PGP 


H 




0178 5E 




MOV 


E,M 




0179 23 




INX 


H 




01 7A E5 




PUSH 


H 




017B 1600 




MVI 


D,0 




017D 2A1501 




LHLB 


EXTRNS 


0180 19 




BAB 


B 




0181 6E 




MOV 


L,M 




0182 C9 




RET 








LONG-DISPLACEMENT, 


DOUBLE-BYTE LOCAL INBIRECTIGN: 






FORMAT! 




CALL LBLI I GET 16-BIT VALl€ IN HL 
Btf OFFSET JROM-BC 1 >- 256 


0183 £1 I 


-HI! 


POP 


H 




0184 5E 




MOV 


E,M 




0185 23 




INX 


H 




0186 56 




MOV 


B*M 




0187 23 




INK 


H 




0188 E5 




PUSH 


H 




0189 EB 




XCHG 






018A09 




BAD 


B 




018B 7E 




MOV 


A.M 
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DISC 23 




INX 


H 




0180 66 




MOV 


H,M 




018E 6F 




MOV 


L,A 




018F C9 




RET 








J SHORT-DISPLACEMENT, 


DOUBLE-BYTE LOCAL INDIRECTION? 






FORMAT: 




CALL SOLI ? GET 16-BIT VALUE IN HL 
BB QFFSET-FROOC ? < 256 


0190 £1 * 


SOLI! 


POP 


H 




0191 5E 




MOV 


E,M 




0192 23 




INX 


H 




0193 E5 




PUSH 


H 




0194 £8 




XCHG 






0195 2600 




MVI 


H,0 




0197 09 




DAD 


B 




0198 7E 




MOV 


A,M 




0199 23 




INX 


H 




019A66 




MOV 


H,M 




019B 6F 




MOV 


L,A 




019CC9 




RET 







FLAG CONVERSION ROUTINES* 



019D 210100 


PZINH: 


LXI 


H.1 


01A0C8 




RZ 




01A1 2B 




OCX 


H 


01A2C9 




RET 




01A3 210000 


PNZINH: 


LXI 


H,0 


01A6 C8 




RZ 




01A7 23 




INX 


H 


01A8C9 




RET 




01A9 210100 


PCINH: 


LXI 


H,l 


01ACD8 




RC 




01AD 2B 




OCX 


H 


01AEC9 




RET 




01AF 210000 


PNCINH: 


LXI 


H.0 


01B2 DO 




RC 




01B3 23 




INX 


H 


01B4 C9 




RET 




01B5 210100 


PPINHs 


LXI 


H,l 


01B8FO 




RP 




01B9 2B 




OCX 


H 


01BAC9 




RET 




01BB 210100 


PM1NH: 


LXI 


H,i 


OiBE FB 




RM 





5RETURN HL = TRUE IF Z SET 



SflETURN HL = FALSE IF Z SET 



Sfi£TURN HL * TRUE IF C SET 



JRETURN HL * FALSE IF C SET 



fRETURN HL = TRUE IF P (PLUS) FLAG SET 



5RETURN HL = TRUE IF M (MINUS) FLAG SET 
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01BF2B 




OCX 


H 


01C0C9 




RET 




Old 110100 


P2IND: 


LXI 


0*1 


01C4C8 




RZ 




01C5 IB 




OCX 





01C6C9 




RET 




01C7 HOOOO 


PNZINB: 


LXI 


0,0 


01CAC8 




R2 




01CB 13 




INX 


B 


01CCC9 




RET 




01CD 110100 


PC1ND: 


LXI 


B,l 


01B0B8 




RC 




01B1 IB 




DCX 





01B2C9 




RET 




01B3 UOOOO 


PNCIND: 


LXI 


0,0 


01B6B8 




RC 




01D7 13 




INX 


D 


01D8C9 




RET 




01B9 110100 


PPINO: 


LXI 


0,1 


01BCF0 




RP 




01BD IB 




BCX 


D 


OiBE C9 




RET 




01BF U0100 


PHIN0: 


LXI 


0,1 


01E2F8 




RN 




01E3 IB 




DCX 





01E4C9 




RET 





?RETURN BE » TRUE IF Z SET 



?R£TURN 0E = FALSE IF Z SET 



;R£TURN DE * TRUE IF C SET 



iRETURN BE * FALSE IF C SET 



JfiETURN BE = TRUE IF P (PLUS) FLAG SET 



JRETURN BE - TRUE IF H MINUS) FLAG SET 



RELATIONAL OPERATOR ROUTINES: TAKE ARCS IN BE AND HL. 
AND RETURN A FLAG BIT EITHER SET OR RESET. 

«=» >» < : 



01E5 70 


EQHEL: 


HOV 


A,L 


iRETURN Z IF HL * BE, aSE NZ 


01E6 BB 




CKP 


E 




01E7 CO 




RNZ 




?IFLC£, THENHL OBE 


01E8 7C 




HOV 


A.N 


?ELSE HL » DE ONLY IF H * D 


01E9 BA 




Of* 


B 




01EAC9 




RET 






01E8 £B 


BLAU: 


XCHG 




JRETURN C IF HL < BE, UNSIGNED 


01EC 7A 


ALBU: 


HOV 


A,B 


JRETURN C IF DE < HL, UNSIGNED 


01EBBC 




CHP 


H 




01EEC0 




RNZ 




5 IF BO H. C IS SET CORRECTLY 


01EF 7B 




HOV 


A,E 


J&SE COHPARE E WITH L 


01F0 BB 




Of* 


L 




01F1 C9 




RET 
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01F2EB 


BGAU: 


XCHG 




01F3 7C 


AGBU: 


MOV 


A,H 


01F4BA 




CMP 





01F5 CO 




mz 




01F6 7D 




MOV 


A,L 


01F7 BB 




CMP 


E 


01F8C9 




RET 




01F9EB 


BLAS: 


XCHG 




01FA 7C 


ALBS: 


MOV 


A,H 


01FB AA 




XRA 


B 


01FC F2EC01 




JPALBl 


) 


01FF 7A 




MOV 


A,B 


0200 B7 




ORA 


A 


0201 FO 




RP 




0202 37 




STC 




0203 C9 




RET 




0204 EB 


BGAS* 


XCHG 




0205 7C 


AGBS: 


MOV 


A,H 


0206 AA 




XRA 


B 


0207 F2F301 




JP 


AGBU 


020A7C 




MOV 


A,H 


0208 87 




ORA 


A 


020CF0 




RP 




020D 37 




STC 




020EC9 




RET 





SRETURN C IF HL > DE, UNSIGNED 
SRETURN C IF BE > HL, UNSIGNED 

5IFHO0, C IS SET CORRECTLY 
?ELSE COMPARE L WITH E 



fRETURN C IF HL < BE, SIGNED 
JRETURN C IF DE < HL, SIGNED 

tlf SA*£ SIGN, 00 UNSIGNED COMPARE 



?aSE RETURN NC IF DE IS POSITIVE AND HL IS NEGATIVE 
?ELSE SET CARRY, SINCE DE IS NEGATIVE AND HL IS POS. 



5RETURN C IF HL > !£, SIGNED 
?RETURN C IF BE > HL SI 



?IF SAME SIGN, 00 DO UNSIGNED COMPARE 

?aS£ RETURN NC IS HL IS POSITIVE AND DE IS NEGATIVE 
Sfl.SE RETURN C, SINCE HL IS NEG AT© DE IS POS 



S MULTIPLICATIVE OPERATORS* *» /, AND 1A 



0227 00 



020F 7A SHOD* MOV 


A,B 


SIGNED MOD ROUTINE* RETURf 


0210 F5 


PUSH 


PSH 


SAVE HIGH BIT OF DE AS SI( 


0211 CD5A02 


CALL 


TSTN 


GET ABSOLUTE VALUE CT ARGi 


0214 EB 


XCHG 






0215 CB5A02 


CALL 


TSTN 




0210 EB 


XCHG 






0219 CB2902 


CALL 


USMO0 


m UNSIGNED MOD 


021C Fl 


POP 


PSH 


HAS BE NEGATIVE? 


021D B7 


ORA 


A 


I IF NOT, 


021E FO 


RP 




ALL DONE 


021F 7C 


MOV 


A,H 


fELSE MAKE RESULT NEGATIVE 


0220 2F 


CMA 






0221 67 


MOV 


H,A 




0222 7D 


MOV 


A,L 




0223 2F 


CMA 






0224 6F 


MOV 


L,A 




0225 23 


INX 


H 




0226 C9 


RET 







NOP 



^MAINTAIN ADDRESS COMPATIBILITY WITH SOME 
! PRE-RELEASE V1.4'S. 



0229 7C 



USMGBi MOV A>H 



SUNSIGNEB MOD: RETURN iW. % HL) IN HL 
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022A B5 


OKA 


L 


022BC8 


RZ 




022CD5 


PUSH 





022BE5 


PUSH 


H 


022E CD8902 


CALL 


USDIV 


0231 Dl 


POP 


D 


0232 CD6B02 


CALL 


USMUL 


0235 7C 


MOV 


A,H 


0236 2F 


CMA 




0237 67 


MOV 


H,A 


0238 70 


MOV 


A,L 


0239 2F 


CMA 




023A6F 


MOV 


L,A 


023B23 


INX 


H 


023CD1 


POP 


D 


0230 19 


DAD 


D 


023EC9 


RET 




023F AF 


SMULs XRA 


A 


0240 325905 


STA 


TMP 


0243 CB5A02 


CALL 


TSTN 


0246 EB 


XCHG 




0247 CD5A02 


CALL 


TSTN 


024A CB6B02 


CALL 


USMUL 


0240 3A5905 


stmt LDA 


TMP 


0250 IF 


RAR 




0251 DO 


RNC 




0252 7C 


MOV 


A,H 


0253 2F 


CMA 




0254 67 


MOV 


H,A 


0255 7D 


MOV 


A,L 


0256 2F 


CMA 




0257 6F 


MOV 


L,A 


0258 23 


INX 


H 


0259 C9 


RET 




025A7C 


TSTN: MOV 


A.N 


025BB7 


ORA 


A 


Q25CFO 


RP 




025B2F 


CMA 




025E67 


MOV 


H,A 


025F7D 


MOV 


A.L 


0260 2F 


CMA 




0261 6F 


MOV 


L.A 


0262 23 


INX 


H 


0263 3A5905 


LDA 


TMP 


0266 3C 


INR 


A 


0267 325905 


STA 


TMP 


026A C9 


RET 




0268 C5 


USMUL! PUSH 


B 


026C CD71Q2 


call 


USM2 


026f CI 


POP 


B 


0270 C9 


RET 




0271 44 


USM2s MOV 


B,H 



SIGNED MULTIPLY* RETURN (BE * HL) IN HL 



[UNSIGNED MULTIPLY: RETURN <DE * HL) IN HL 
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0272 4D 

0273 210000 

0276 78 

0277 81 

0278 C8 

0279 78 
027A IF 
027B 47 
027C 79 
027D IF 
027E4F 
027F B28302 

0282 19 

0283 m 

0284 29 

0285 £8 

0286 C37602 



USM3? 



USH4: 



HOV 
LXI 
HOV 

m 

RZ 

HOV 

RAR 

HOV 

HOV 

RAR 

HOV 

imp 

BAD 

XCHG 

BAD 

XCHG 

JHP 



C,L 
H,0 
A,B 
C 

A,B 

BiA 
A,C 

C,A 

USH4 

B 

H 

USH3 



0289 7C 
028AB5 
028BC8 
028CC5 
028B CB9402 

0290 60 

0291 69 

0292 CI 

0293 C9 



USBIV: HOV 
ORA 
R2 

PUSH 
CAUL 
HOV 
HOV 
POP 
RET 



A,H 



B 

USD! 
H,B 
L.C 

B 



5UNSIGNEB DIVIDE: RETURN (BE / H> IN HL 
5RETURN IF HL IS 



0294 0601 

0296 7C 

0297 B7 
0298FAA002 
029B29 
029C04 
029B C39602 



USBU HVI 

USB2J HOV 

ORA 



INR 



B,i 

A,H 

A 

USB3 

H 

B 

USB2 



02A0EB 



USD3! XCHG 



02A1 78 
02A2 010000 
02A5 F5 
02A6 CDBB02 
02A9 DAB702 
02AC03 
02ABB5 
02AE 7A 
02AF2F 
02B0 57 
02B1 7B 
02B2 2F 
02B3 5F 
02B4 13 
02B5 19 
02B6 Bl 



USB4J HOV 
LXI 
USDS: PUSH 
USB6: CALL 
JC 
JNX 
PUSH 
HOV 

m 

HOV 
HOV 
CHA 
HOV 
INX 



USB7J XRA 



A,B 
B,0 

pm 



USB7 
B 
D 
A,0 

B,A 
A»E 

E,A 

B 

B 

D 

A 
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02B8 7A 




HOV 


A,B 




02B9 IF 




RAR 






02BA 57 




HOV 


BtA 




O20B 7B 




HOV 


A,E 




02BC IF 




RAR 






Q2BD5F 




HOV 


£,A 




02BEF1 




POP 


PSW 




02BF3D 




BCR 


A 




02C0C8 




RZ 






02C1 F5 




PUSH 


PSM 




02C2 79 




HOV 


A,C 




02C3 17 




RAL 






02C4 4F 




NOV 


C,A 




02C5 78 




HOV 


A,B 




02C6 17 




RAL 






02C7 47 




HOV 


B»A 




02C8 C3A602 




MP 


USB6 




02CB AF 


SBIV: 


XRA 


A 


?SIGNE0 BIVIBEt RETURN <B£ / 1 


02CC 325905 




STA 


THP 




02CFCD5A02 




CALL 


TSTN 




02D2EB 




XCHG 






02D3 CD5A02 




CALL 


TSTN 




02D6 EB 




XCHG 






02D7 CB8902 




CALL 


USBIV 




02BAC34B02 




JHP 


SHUL2 




0200 7C 


mm* 


hov 


A,H 


5 THIS RETURNS C IF HL < 0E 


02BEBA 




CHP 


B 


? (UNSIGNED COHPARE ONLY USEB 


02DFB8 




RC 




? WITHIN C.CCC, NOT FROH C) 


02E0C0 




mi 






02E1 7B 




HOV 


A,L 




02E2BB 




CHP 


E 




02E3C9 




RET 








* 
i 

? SHIFT OPERATORS « AND ».' 


02E4 EB 


SBERBLs 


XCHG 




5SHIFT BE RIGHT BY L BITS 


02E5 1C 


SHLRBE: 


INR 


E 


?SHIFT HL RIGHT BY E BITS 


02E6 IB 


shrbe2.- 


BCR 


E 




02E7C8 




RZ 






02E8 AF 




XRA 


A 




02E9 7C 




HOV 


A,H 




02EA IF 




m 






02EB 67 




HOV 


H,A 




02EC 7B 




HOV 


AtL 




02EB IF 




RAR 






02EE 6F 




HOV 


LrA 




02EFC3E602 




JHP 


SHRBE2 




02F2EB 


S0ELBL: 


XCHG 




JSHIFT DE LEFT BY L BITS 


02F3 1C 


SHLLBE? 


INR 


E 


!$HIFT HL LEFT BY E BITS 


02F4 IB 


SHLBE2* 


bcr 


E 




02F5 C8 




RZ 
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02F6 29 BA0 H 

.02F7 C3F402 JMP 



ftarTINES TO 2'S COMPLEMENT a AND BE* 



02FA7C 


CMH: MOV 


A,H 


02FB2F 


CMA 




02FC67 


MOV 


H,A 


02FD7D 


MOV 


A,L 


02FE 2F 


CMA 




02FF6F 


MOV 


L.A 


0300 23 


1NX 


H 


0301 C9 


RET 




0302 7A 


CMD: MOV 


A,B 


0303 2F 


CMA 




0304 57 


MOV 


D,A 


0305 7B 


MOV 


A.E 


0306 2F 


CMA 




0307 5F 


MOV 


E.A 


0308 13 


INX 


D 


0309 C9 


RET 





THE FOLLOWING ROUTINES YANK A FORMAL PARAMETER VALUE OFF THE STACK 
AND PLACE IT IN BOTH HL m A (LOW BYTE), ASSUMING TIC CALLER 
HASN'T BONE ANYTHING TO ITS STACK POINTER SINCE IT MAS CALLED, 

THE MNEMONICS ARE "MOVE ARG #N TO HL". 
WHERE ARG #1 IS THE THIRD THING ON THE STACK (WHERE THE FIRST 
AND SECOND THINGS ARE, RESPECTIVELY, THE RETURN ADDRESS OF THE 
ROUTINE MAKING THE CALL TO HERE, AND THE PREVIOUS RETURN 
ADDRESS TO THE ROUTINE WHICH ACTUALLY PUSHED THE AfiGS ON THE 
STACK.) THUS, A CALL TO "MA1T0H" WOULD RETURN WITH THE FIRST 
PASSED PARAMETER IN HL AND A; "MA2T0H" WOULD RETURN THE SECOND, 
ETC. NOTE THAT IF THE CALLER HAS PUSHED CN3 ITEMS ON THE STACK 
BEFORE CALLING "MA CX3 TOH'S THEN THE CX-N3TH FORMAL PARAMETER 
VALUE WILL SE RETURNED, NOT THE IX3TH. 



030A 210400 


MAlTOHi LXI 


H,4 


?GET FIRST ARG 


030D 39 


MAOTOH* DAD 


SP 




030E7E 


MOV 


A,M 




030F23 


INX 


H 




0310 66 


MOV 


H,M 




0311 6F 


MOV 


L,A 




0312 C9 


RET 






0313 210600 


MA2T0H: LXI 


H,6 


5GET2NB ARG 


0316 C30D03 


M> 


MAOTOH 




0319 210800 


MA3TGH? LXI 


H,8 


jget mm 


031C C30D03 


JMP 


maotoh 
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031F 210A00 
0322 C30D03 


HA4T0H: LXI 
JMP 


H,10 
MAOTOH 


5CET 4TH ARG 


0325 210C00 
0328 C30D03 


MA5T0H: LXI 
JMP 


H,12 
MAOTOH 


?G£T 5TH ARO 


032B 210E00 
032E C30D03 


MA6T0HJ LXI 
JMP 


H,14 
MAOTOH 


JGET6THARG 


0331 211000 
0334 C30B03 


MA7TCH: LXI 

vWP 


H,16 
MAOTOH 


iGET 7TH ARC" 



THIS ROUTINE TAKES THE FIRST 7 ARCS ON THE STACK 

AND PLACES MM CONTIGUOUSLY AT THE "ARCS" RAM AREA. 

THIS ALLOWS A LIBRARY ROUTINE TO MAKE ONE CALL TO ARGHAK 

AJffl HENCEFORTH HAVE ALL IT'S ARGS AVAILABLE DIRECTLY 

THROUGH LHLD'S INSTEAD OF HAVING TO HACK TO STACK AS IT 

GROWS AND SHRINKS. NOTE THAT ARGHAK SHOULD BE CALLED AS THE 

VERY FIRST THING A FUNCTION DOES* BEFORE EVEN PUSHING BC, 



0337 118705 


RrVvflrws* 


LXI 


B,ARGS , 


'DESTINATION FOR BLOCK MOVE I) 


033A 210400 




LXI 


H,4 


PASS OVER TUO RETURN ADDRESS 


033D39 




DAD 


SP 


(SOURCE FOR BLOCK MOVE IN HL 


033EC5 




PUSH 


B 


SAVEBC 


033F060E 




MVI 


B44 


'COUNTDOWN INB 


0341 7E 


ARGf«2s 


MOV 


A,M 


COPY LOOP 


0342 12 




STAX 


D 




0343 23 




INX 


H 




0344 13 




INX 


B 




0345 05 




DCft 


B 




0346 €24103 




JN2 


ARGHK2 




0349 CI 




POP 


B ! 


'RESTORE BC 


034AC9 




RET 







? UP TO THIS POINT, ABSQLUT&Y NO CHANGES SHOULD EVER BE MADE 
? TO THIS SOURCE FILE (EXCEPT FOR CUSTOMIZING THE E6U STATEMENTS 
! AT. THE BEGINNING Cf THE FILE). 



THIS ROUTINE IS CALLED FIRST TO DO ARGC & ARGV PROCESSING (IF 
RUNNING UNDER CP/M) AND SOME ODDS AND ENDS INITIALIZATIONS: 



034B El INIT8 POP H ? STORE RETURN ADDRESS 

034C 225B05 SHLD TMP2 ! SOMEWHERE SAFE FOR THE TIME KING 



034F 214807 



IF CPH 

LXI H,ARGLST-2 

ENDIF 



JSET THE -ARGV* THAT TO C MAIN PROGRAM 



CP/M MACRO ASSEM 2.0 


#013 


BDS C Run-Tin* Modul* (c.cc 




IF 


NOTCPM 




LXI 


H,0 




ENDIF 




0352 E5 


PUSH 


H ? WILL GET. 



0353 2A1B01 


LHLD 


0356 229B05 


SHLD 


0359 21E803 


lxi 


035C 229005 


SHLD 



UNITIALIZE STORAGE ALLOCATION POINTERS? 
FRERAH ?GET ADDRESS AFTER END OF EXTERNALS 
ALLOCP ! STORE AT ALLOCATION POINTER (FOR "SBRK.") 
H,1000 ? DEFAULT SAFETY SPACE BETWEEN STACK AND 
ALOCMX ? HIGHEST ALLOCATABLE ADDRESS IN MEMORY 

! (FOR USE BY "SBRK".). 



035F21BC59 



0365 3EDB 
0367 329505 
036A 3ED3 
036C 329805 
036F C€C9 
0371 329705 
0374 329A05 



LXI 



0377 OEOB 
0379 CB0500 

037C B7 
037D 00 

037E CA8603 
03S1 0E01 
0383 CD0500 



? INITIALIZE RANDOM SEED! 
H,59BCH SLET'S STICK SOMETHING WIERD INTO THE 
RSEED 5FIRST 16 BITS OF THE RANDOM-NUMBER SEED 

UNITIALIZE I/O HACK LOCATIONS: 

? U IN" OP, FOR "IN XX! RET" SUBROUTINE 

? "OUT" OP FOR "OUT XX? RET" 'SUBROUTINE 

5 "RET" FOR ABOVE SOSfiOUTINES 

;THE PORT NUMBER IS FILLED IN BY THE 

? u INP a AND "OUTP" LIBRARY ROUTINES, 

UNITIALIZE DMA VIDEO PARAMETERS: 
?IF WE'RE USING DMA VIDEO ROUTINES, 
5SET IP DEFAULT VALUES (MAY BE CHANGED 
?T0 WHATEVER SUITS). VIDEO BOARD ADDRESS, 

?# OF LINES. 

!# OF COLUMNS, 

SAND TOTAL # OF CHARACTERS: ON SCREEN 



SUNDER CP/M8 CLEAR aitSQLE, PROCESS ARGC I AROVs 
UNTERR06ATE CONSOLE STATUS TO SEE IF THERE 
HAPPENS TO BE A STRAY CHARACTER THERE... 

UUSED TO BE H AN1 l'...THEY TELL ME THIS WORKS 
5 BETTER FOR CERTAIN BIZARRE CP/M-IIKE" SYSTEMS) 



MVI 


AtODBH 


STA 


IOHACK 


MVI 


A,0D3H 


STA 


IOHACK+3 


MVI 


A.0C9H 


STA 


IGHACK+2 


STA 


IOHACK+5 


IF 


DMAVIO 


LXI 


H,OCCO0H 


SHLD 


PBASE 


LXI 


H,16 


SHLD 


XSIZE 


LXI 


H,64 


SHLD 


YSIZE 


LXI 


HU024 


SHLD 


PSIZE 


ENDIF 




IF 


CFfS 


MVI 


Cli 1 


CALL 


BOGS ! 



JZ INITZZ 

MVI CI HF INPUT PRESENT, CLEAR IT 

CALL BBOS 



0386 218000 
0389 11C706 
038C 46 
0380 23 
038E 78 



INITZZ: LXI 
LXI 
MOV 
1NX 



0390 C29903 



H,TBUFF 

D.CCMLIN 

B,M 

H 

A,B 

A « 

INITL 



ilf ARGUMENTS GIVEN, PROCESS THEM. 

!6ET READY TO COPY COMMAND LINE 

? FIRST GET LENGTH OF IT FROM LOC. BASE+3QH 



IF NO ARGUMENTS, DON'T PARSE FOR ARK 
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0393 110100 


LXI 


B,l 


?SET ARGC TO 1 IN SUC:H A CASE. 


0396 C3F703 


jmp 


15 




0399 7E 


INITLs mov 


A,M 


SOK, THERE ARE ARGUMENTS. PARSE... 


039A 12 


STAX 


B 


5FIRST COPY COMMAND LINE TO COhLIN 


039B 23 


INX 


H 




039C 13 


INX 


D 




039B 05 


BCR 


B 




039EC29903 


JNZ 


INITL 




03A1 flF 


XRA 


A 


5PLACE ZERO FOLLOWING LINE 


03A2 12 


STAX 


B 


, 


03A3 21C706 


LXI 


H,COMLIN 


?NGW COMPUTE POINTERS; TO EACH ARG 


03A6 110100 


LXI 


0,1 


?ARG COUNT 


03A9 014A07 


LXI 


B,ARGLST 


?WH£R£ POINTERS WILL ALL 00 


03AC AF 


XRA 


A 


5CLEAR "IN A STRING FLAG 


03AB 325A05 


STA 


TMP1 




03B0 7E 


125 MOV 


A,M 


JBETiCEN ARGS... 


03B1 23 


INX 


H 




03B2 FE20 


CPI 


/ / 




03B4 CAB003 


JZ 


12 




03B7 B7 


ORA 


A 




03&8 CAF703 


JZ 


15 


J IF NULL BYTE, BONE WITH LIST 


03BB FE22 


CPI 


a* 




03BB C2C603 


JNZ 


I2A 


5 QUOTE? 


03CO 325A05 


STA 


TNP1 


5YES. SET "IN A STRING" FLAG 


03C3 C3C703 


JMP 


I2B 




03C6 2B 


12A: OCX 


H 




0X7 7B 


I2B5 MOV 


A,L 


iOK. HL IS A POINTER TO THE START 


03C8 02 


STAX 


& 


!0F AN ARG STRING. STORE n. 


03C9 03 


INX 


B 




03CA 7C 


MOV 


A,H 




03CB 02 


STAX 


B 




03CC 03 


INX 


B 




03CB 13 


INX 


B 


5BUMP ARG COUNT 


03CE 7E 


I3« «0V 


A,M 




03CF23 


INX 


H 


SPftSS OVER TEXT OF THIS ARG 


03BOB7 


ORA 


A 


UF ATEND, ALL BOT€ 


0381 CAF703 


JZ 


15 




03B4 C5 


PUSH 


B 


J IF TMPi SET, IN A STRING 


03D5 47 


MOV 


B,A 


\ (SO WE HAVE TO IGNORE SPACES) 


03B6 3A5A05 


LBA 


TMP1 




03B9B7 


ORA 


A 




03BA78 


HOV 


A,B 




03BB CI 


POP 


B 




03BC CAEB03 


JZ 


I3A 




03BF FE22 


CPI 


/a/ 


5WE ARE IN A STRING. 


03E1 C2CE03 


JNZ 


13 


5 CHECK FOR TERMINATING QUOTE 


03E4 AF 


XRA 


A 


5 IF FOUND, RESET "IN STRING 8 FLAG 


03E5 325A05 


STA 


THPi 




03E8 2B 


l»*wA 


H 




03E9 77 


HOV 


M,A 


JA1® STIC*: A ZERO BYTE AFTER THE STRING 


ViS&H ii5 


INX 


H 


lANB 00 ON. TO NEXT ARG 


03EB FE20 


I3As CPI 


/ .' 


J NOW FIND THE SPACE BETWEEN ARGS 


03EB C2CE03 


JNZ 


13 
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03F0 2B 


DCX 


H 


03F1 3600 


MVI 


M,0 


03F3 23 


1NX 


H 


03F4 C3B003 


JHP 


12 



03F7D5 



15: 



PUSH B 



5F0UNB IT. STICK IN A ZERO BYTE 

;AND GO ON TO NEXT ARC 

?ALL DOI€ FINDING ARGS, SET ARGC. 



03F8 0608 


MVI 


B.NFCBS 


SNOW INITIALIZE ALL THE FILE INFO 


03FA 21BF06 


LXI 


H,FDT 


!(JUST ZERO THE FD TABLE) 


03FB 3600 16 


: HVI 


«,0 




03FF23 


INX 


H 




0400 05 


DCR 


B 




0401 C2FB03 


JN2 
ENDIF 


16 






IF 


NOT CPH 


?IF NOT UNDER CP/M, FORCE ARGC VALUE 




LXI 


H,l 


? OF ONE. 




RUSH 


H 






ENDIF 






0404 AF 


XRA 


A 




0405 325F05 


STA 


UNGETL 


fCLEAR THE PUSH-BACK BYTE 


0408 326005 


STA 


LASTC 


;AND LAST CHARACTER BYTE 


040B2A5B05 


LHLB 


THP2 




040EE9 


PCHL 




?ALL DOi€ INITIALIZING. 



GENERAL PURPOSE ERROR VALUE RETURN ROUTINE! 



040F 21FFFF 
0412 C9 



>GR: LXI H,-l 5GENERAL ERROR HANDLER... JUST 
RET ?R£MNS -1 IN HL 



? HERE ARE FILE I/O HANDLING ROUTINES, ONLY DEEDED UNDER CP/M: 





5 CLOSE ANY OPEN FILES AN 

* 

8 




VEXIT: 










IF 


CPH 


0413 3E0F 




MVI 


A,7+NFCBS 


0415 F5 


EXITi: 


PUSH 


PSW 


0416 CD5A04 




CALL 


VFGFO 


0419 DA2404 




JC 


EXIT2 


041C6F 




tm 


LrA 


0410 2600 




mi 


H,0 


041FE5 




FUSH 


H 


0420 CB2E04 




CALL 


VCLOSE 


0423 El 




POP 


H 


0424 Fl 


EXIT2: 


POP 


PSW 


0425 3D 




DCR 


A 


0426 FE07 




CPI 


7 



f IF UNDER CP/M, CLOSE ALL OPEN FILES 
JSTART WITH LARGEST POSSIBLE FD 
SAND SCAN ALL FD'S FOR OPEN FILES 
SIS FILE WHOSE FD IS IN A OPEN? 
UFNOT, GO ON TO NEXT FD 
?aSE aOSE THE ASSOCIATED FILE 



?AND GO ON TO NEXT ONE 
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0428 C21504 



042BC30000 



JNZ EXITi 
ENOIF 

JMP EXITAD 



?BONE CLOSING; NOW REBOOT CP/M OR WHATEVER. 



CLOSE THE FILE WHOSE FB IS 1ST ARG: 





IF 


042E CB4805 


VCLOSE: CALL 


0431 CB0A03 


CALL 


0434 CB5A04 


CALL 


0437 BA0F04 


JC 


043A7E 


MOV 


043BE604 


ANI 




IF 


0430 CA50O4 


J2 




ENBIF 




IF «PW2 




NOP 




NOP 




NOP 




ENBIF 



CPM ?HER£ COMES A LOT OF CP/M STUFF.. . 

SETBMA LIBRARY FUNCTION JUST JUMPS HERE. 

MA1T0H ?GET FD IN A 

VFGFD ?SEE IF IT IS OPEN 

VERROR JIF NOT, COMPLAIN 

A,M 

4 

N0TMPM2 ?IF NGTMP/M, ANB 

CL0SE2 ?THE FILE ISN'T OPEN FOR WRITE, DOM'T BOTHER TO CLOSE 



5 ALWAYS CLOSE ALL FILES UNDER MP/M 



0440 £5 


PUSH 


H 


5SAVE FB TABLE ENTRY ABBR 


0441 CB1303 


CALL 


MA2T0H 


JNOVE ARG1 TO A 


0444C5 


PUSH 


B 




0445 CB0205 


CALL 


VFGFC8 


?G£T THE APPROPRIATE FCB ADDRESS 


0448 EB 


XCHG 




?PUT IT IN BE 


0449 0E1O 


mi 


C16 


?G£T BBGS FUNCTION # FOR CLOSE 


044BCB0500 


CALL 


BBOS 


SAND BO IT! 


044EC1 


POP 


B 




044FE1 


pop 


H 




0450 3600 


CL0SE2: MVI 


M,0 


SCLOSE LOGICALLY 


0452 FEFF 


CPI 


*55 


?IF 255 COMES BACK, WE GOT PROBLEMS 


0454 210000 


LXI 


H,0 




0457 CO 


RNZ 




?RETURN IF OK 


0458 2B 


ax 


H 


sreturn -1 ON ERROR 


045? €9 


RET 







DETERMINE STATUS OF FILE WHOSE FB IS IN A... IF THE FILE 
IS NOT OPEN, RETURN C FLAG SET, ELSE CLEAR C FLAG: 



045A CB4305 


VFGFD: 


CALL 


SETBMA 




045B57 




MOV 


B,A 




045E B608 




SUI 


8 




0460 B8 




RC 




HFFB < 8, ERRCfi 


0461 FE08 




CPI 


NFCBS 




0463 3F 




CMC 




SMM'T ALLOW TOG 


0464 B8 




RC 






0465 D5 




push 


D 




0466 5F 




fflj 


E,A 


?0K, WE HAVE A VA 
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! SEE IF THE FILE IS OPEN OR NOT 

SBIT IS HIGH IF FILE IS OPEN 

SRETURN C SET IF NOT OPEN 
?ELSE RE'SET C AND RETURN 



SET UP A CP/M FILE CONTROL ROCK AT HL WITH THE FILE HHOSE 

SIMPLE NULL-TERMINATED NAME IS POINTED TO BY 0E: 

FORMAT FOR FILENAME MUST BE: "[WHITE SPACEHDOFILENAHE.EXP 



0467 1600 


MVI 


B,0 


0469 21BF06 


LXI 


H,FBT 


046C 19 


BAD 





046B 7E 


MOV 


A,fl 


046E £601 


ANI 


1 


0470 37 


STC 




0471 01 


POP 


D 


0472 7A 


MOV 


A.D 


0473 C8 


RZ 




0474 3F 


CMC 




0475 C9 


RET 





VSETFCB: 



0476 CD4805 


CALL 


SETBMA 


0479 C5 


PUSH 


B 


047A CBF404 


CALL 


IGWSP 


047B0608 


MVI 


B,8 


047F E5 


PUSH 


H 


0400 13 


INX 


D 


0481 1A 


LBAX 


B 


0482 IB 


BCX 


D 


0483 FE3A 


CPI 


* 


0485 3E00 


MVI 


A,0 


0487 C29204 


JNZ 


SETF1 


04SA 1A 


LBAX 


D 


048BCBEB04 


CALL 


MAPUC 


048EB640 


SOI 


'%? 


0490 13 


INX 


B 


0491 13 


INX 





0492 77 


SETFlf MOV 


I1,A 


0493 23 


INX 


H 


0494 CB4701 


CALL 


PATCHNH 


0497 1A 


LBAX 


D 


0498 FE2E 


CPI 


j / 


049A C29E04 


JNZ 


SETFCB2 


049B 13 


INX 





049E0603 


SETFC82 MVI 


B.3 


04A0CBAE04 


CALL 


SETNH 


04A3 AF 


XRA 


A 


04A4 77 


MOV 


M,A 


04A5 H1400 


LXI 


0,20 


04A8 19 


DAD 


B 


04A9 77 


MOV 


M,A 


04AA 23 


INX 


H 


04AB C33F01 


JNP 


SETFCB3 



?SET UP AN FCB AT HL FOR FILENAHE AT BE 
IIGNORE BLANKS AND TABS 



5BEFAULT BISK BYTE VALUE IS 
J (FOR CURRENTLY LOGGED BISK) 

OH OH... WE HAVE A BISK DESIGNATOR 
MAKE IT UPPER CASE 
AND FUDGE IT A BIT 



\m SET FILENAME AND PAD WITH BLANKS 
SAND IF AN EXTENSION IS GIVEN, 

;S£T THE EXTENSION AND PAD WITH BLANKS 
SAND ZERO THE APPROPRIATE FiaDS OF THE FCB 



? FINISH UP ELSEMHERE TO KEP ADDRESSES CONSISTENT 
,'WITH PRIOR RELEASES 



I THIS ROUTINE COPES UP TO B CHARACTERS FROM MEMORY AT l£ TO 
? MEMORY AT HL AND PADS WITH BLANKS ON THE RIGHT? 
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v*tH£ wii/ 


SETNM: 


POSH 


B 




04AF 1A 


SETNMl: 


LDA3f 


D 




O4B0FE2A 




CPI 


'*' 


5W1LB CARB? * 


04B2 3E3F 




mi 


A,'?' 


J IF SO, PAB WITH ? CHARACTERS 


04B4 CAB104 




J2 


PAB2 




04B7 1A 


setnm2: 


LOAX 


D 




04B8CBB904 




CALL 


LEGFC 


5NEXT CHAR LEGAL FILENAME CHAR"? 


04BBBACF04 




X 


PAB 


J IF NOT, GO PAB FOR TOTAL OF B CHARACTERS 


04BE77 




MOV 


M,A 


JELSE STORE 


04BF23 




im 


H 




04C0 13 




im 


B 




04C1 05 




BCR 


B 




04C2C2AF04 




M 


SETtfltt 


JANB 00 FOR MORE IF B NOT YET ZERO 


04C5C1 




POP 


B 




04C6 1A 


SETNM3: 


LBAX 


B 


?SKIP REST OF FILENAME IF B CHARS ALREABY FOUND 


04C7 cmoA 




CALL 


LEGFC 




04CAD8 




BC 






04CB 13 




im 


B 




04CC C3C604 




1MO 


SETNM3 




04CF3E20 


PAB? 


mi 


A,' ' 


5PAB WITH B &ANKS 


04B1 77 


PAB2J 


MOV 


«,A 


5PAB WITH B INSTANCES OF CHAR IN A 


04B2 23 




INX 


H 




04B3 05 




BCR 


B 




04B4 C2B104 




JNZ 


PAB2 




04B7 CI 




POP 


B 




04B8 C9 




RET 







TEST IF CHAR IN A IS LEGAL CHARACTER TO B£ IN A FILENAME* 



04B9CBEB04 LEGFC: CALL MAPUC 



04BCFE2E 

04BE37 

04BF C8 

04E0FE3A 

04E2 37 

04E3C8 

G4E4FE7F 

04E6 37 

04E7C8 

04E8 FE21 

04EAC9 



CPI 

STC 

R2 

CPI 

STC 

RZ 

CPI 

STC 

RZ 

CPI 

RET 



7FH 



? V IS ILLEGAL IN A FILENAME OR EXTENSION 



?S0 IS ':' 



5BELETE IS NO GOOD 



SIF LESS THAN EXCLAMATION PT, MOT LEGAL CHAR 
?aSE GOOD ENOUGH 



HAP CHARACTER IN A TO UPPER CAS£ IF IT IS LOWER CASE? 



04BFE61 


MAPUC: CPI 


V 


04EBB8 


RC 




04EE FE7B 


CPI 


'z'+l 


04F0B0 


RNC 
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04F1 B620 
04F3C9 



SUI 
RET 
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32 J IF LOWER CASE, MAP TO UPPER 



IGNORE BLANKS AND TABS AT TEXT POINTED TO BY BE? 



04F4 IB 


IGttSP: 


OCX 


B 


04F5 13 


IGWSPU 


INX 


D 


04F6 1A 




LBAX 





04F7FE20 




CP1 


/ / 


04F9 CAF504 




JZ 


IGWSP1 


04FC FE09 




CPI 


9 


04FECAF504 




JZ 


IGWSPi 


0501 C9 




RET 





THIS ROUTINE DOES ONE OF TWO THINGS, DEPENDING 
ON THE VALUE PASSED IN A. 

IF A IS ZERO, THEN IT FINDS A FREE FILE SLOT 
(IF POSSIBLE) , ELSE RETURNS C SET, 

IF A IS NON-ZERO, THEN IT RETURNS THE ADDRESS 
OF THE FCB CORRESPONDING TO AN OPEN FILE WHOSE 
FB HAPPENS TO BS. THE VALUE IN A, OR C SET IF THERE 
IS NO FILE ASSOCIATED WITH FD. 



0502 C5 


VFGFCB: 


PUSH 


B 




0503CB4S05 




CALL 


SETBMA 




0506 B7 




ORA 


A 


?LO0K FOR FREE SLOT? 


0507 4F 




WV 


C,A 




0508 C22D05 




JNZ 


FGFC2 


? IF NOT, GO AWAY 


050B0608 




mi 


B,NFCBS 


?YES. 00 IT... 


050B 11BF06 




LXI 


D,FDT 




0510 219F05 




LXI 


H.FCBT 




0513 0E08 




MVI 


C,S 




0515 1A 


FGFCU 


LBAX 


D 




0516 E601 




AN1 


1 




0518 79 




MOV 


A,C 




0519 C21E05 




JNZ 


FCfClA 


1F0UND FREE SLOT? 


051CC1 




POP 


B 


?YES. ALL DONE. 


051DC9 




RET 






051ED5 


FGFCIA* 


PUSH 







051F 112400 




LXI 


D,i^6 


?FCB LENGTH TO ACCOMMODATE RANDOM I/O 


0522 19 




BAB 


B 




0523 Bl 




POP 


D 




0524 13 




INX 


D 




0525 OC 




INR 


C 




0526 05 




BCR 


B 




0527 C21505 




JNZ 


FGFC1 




052A37 


FGFC1B* 


STC 






052BC1 




POP 


B 




052CC9 




RET 




SfiETURN C IF NO MORE FRK SLOTS 
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052D CD5A04 


FGFC2: CALL 


VFGFD 


SCOMPUTE FCB ADDRESS FOR FB Ii 


O53O0A2AO5 


JC 


FGFC1B 


JRETURN C IF FILE ISN'T OPEN 


0533 B608 


SUI 


8 




0535 6F 


MOV 


L,A 


JPUT <FB-§> IN HL 


0536 2600 


mvi 


H,0 




0538 29 


DAD 


H 


;DOUBLE IT 


0539 29 


DAD 


H 


;4*A 


053A 54 


HOV 


B,H 


JSAVE 4*A IN HE 


O53B50 


MOV 


E>L 




053C29 


DAD 


H 


;8*A 


053B 29 


DAG 


H 


?16*A 


053E29 


DAD 


H 


J 32* A 


053F 19 


DAD 





?36*A 


0540 EB 


xchg 




iPUT 36*A IN BE 


0541 219F05 


LXI 


H,FCBT 


?ABB TO BASE OF TABLE 


0544 19 


BAD 





JRESULT IN HL 


0545 79 


MOV 


A.C 


SAND RETURN ORIGINAL FB IN A 


0546 CI 


PGP 


B 




0547 C9 


RET 






0548 05 


SETDMAs PUSH 





SJUST A PREVENTATIVE MEASURE* 


0549 C5 


PUSH 


B 


,'SINCE THE DEFAULT I/O BUFFER 


054AF5 


PUSH 


PS« 


S TENDS TO MAGICALLY CHANGE 


054BE5 


PUSH 


H 


3AR0UND BY ITSELF UHEN LEFT 


O54C0E1A 


MVI 


C.26 


SIN CP/TS HANDS !« 


054E 118000 


LXI 


B,TBUFF 




0551 CB0500 


L-HL.L. 


BOOS 




0554 El 


POP 


H 




0555 n 


POP 


PSW 




0556 CI 


POP 


B 




0557 01 


POP 







0558 C9 


RET 







ENDIF ;£NB OF CP/M-RELATEB FILE I/O ROUTINES 



IF NOT CPM 
MAINS E6U $ INHERE MAIN PROGRAM RESIDES WHEN NOT UNDER CP/M 
i (UNDER CP/M. THE DATA AREA COMES FIRST) 
ENDIF 





! RAM/ 

* 
* 


m* 








IF 


NOTCPM UF NOT UNDER CP/M, 






ORG 


RAM 






ENDIF 




0559 


ROOM! 


BS 


30 ?ROOM FOR RA!fl)QM ST! 


0577 


PBASE: 


0S 


2 ?SCREEN-BMA ADDRESS 


0579 


YSIZE* 


DS 


2 ?SCJ?E£N WIDTH 
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057B 
057D 

057F 

0587 

0595 



mm 

0590 



0559 = 
055A = 
0558 = 
055B * 
055F = 

0560 = 



059F 



XSI2E: BS 

PSIZE: DS 

RSEED: DS 

ARCS: DS 

IOHACK: DS 



ALLOCPs DS 
ALOCMX: DS 



TMP: EQU 

TMP1: E8U 

TMP2: E8U 

TNP2A: EQU 

UNGETU EQU 

LASTC? eou 



2 
2 

8 

14 

6 



J SCREEN HEIGHT 
5SCREEN LENGTH 

?THE RANDOM GENERATOR SEED 

J'ARGHAK" PUTS ARCS PASSED ON STACK HERE. 

?ROGH FOR I/O SUBROUTINES FOR USE BY "IMP" 
?ANB "OUTP" LIBRARY ROUTINES 

^POINTER TO FREE STORAGE FOR USE BY "SBRK" FUNC 
{HIGHEST LOCATION TO BE MADE AVAILABLE TO THE 
STORAGE ALLOCATOR 



ROOH JTHIS IS MISC. GARBAGE SPACE 

RGQH+1 

R00M+2 

ROGtf+4 

RGON+6 5WHERE CHARACTERS ARE "UNGGTTEN 

ROGM+7 JLAST CHAR TYPED 



THE FOLLOWING DATA AREAS ARE NEEDED ONLY IF RUNNING UNDER CP/M: 

IF CPN 
THE FCB TABLE (FCBT): 36 BYTES PER FILE CONTROL BLOCK 



FCBT: DS 36*NFCBS 



^RESERVE ROOM FOR FCB'S (EXTRA BYTE FOR IMDQS) 



THE FD TABLE! ONE BYTE PER FILE SPECIFYING R/W/GPEN AS FOLLOWS: 

BIT IS HIGH IF OPEN* LOW IF CLOSED 

BIT 1 IS HIGH IF OPEN FOR READ 

BIT 2 IS HIGH IF OPEN FOR WRITE 
(BOTH Bl AND B2 MAY BE HIGH) 



FDT: DS NFCBS SONE BYTE PER FCB TELLS IF IT IS ACTIVE, R/W, ETC. 



THE COWtAND LINE IS COPIED HERE BY INIT: 



06C7 



COMLINs DS 131 SCOPY OF THE 
?INAR6LST 



COMHAND LINE POINTED TO BY ENTRIES 



J THIS IS Wf€R£ "INIT" PLACES THE ARRAY OF ARGUHENT POINTERS! 



074A 



ARGLST? DS 60 



THE "ARGV" PARAHATER POINTS HERE (HELL, 
ACTUALLY TO 2 BYTES BEFORE ARGLST ). THUS, 
UP TO 30 PARAMETERS MAY BE PASSED TO "MAIN" 
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ewbif KBmmm you, mm 



i BSD OF CP/H-ONLY DATA AREA 



IF CPU 

0786 = HAIN! EGU t ?«HEf£ "MAIN" PfiOGRATI WILL BE LOADED UNDER CP/ti 



07% BID 



